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Cartes mémoire RAM et ROM 
pour HP48 SX-GX (de 128 KB à 1 MB) 

(compatibles 100% HP) 


| garantie totale durant 1 an 

Produites par la société MICROCARDS, spécialiste en micro-électronique, en toute sécurité pour l’uti- 
lisateur. Vous pouvez les placer indifféremment dans le port 1 ou 2, et les utiliser en mémoire fusion- 
née ou comme mémoire annexe. Avec nos cartes, le passage de banque est manuel, par interrupteur 
(ce qui permet une utilisation sur GX ou SX) ; la taille de chaque banque est de 128 Ko. Les données 
sont conservées par micro-accumulateur interne et non par pile, rechargeable depuis la HP, avec une 

surconsommation négligeable et une durée de vie de 10 ans. Un micro-interrupteur permet l’accès ou 
le blocage d’écriture. 


CARIES MEMOIRE RAM 
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» m. m m W- kj # 

Prix TTC 


48HP128 

128KB 

495F 


48HP256 

256KB (2x128KB) 

795F 
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48HP512 

512KB (4x128KB) 
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48HP1024 

1024KB (8x1 28KB) 
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CARTES MEMOIRE ROM 

Nous vous proposons loute une série de cartes ROM 128KB (ineffaçables), à très bas prix pour le plus 
grand plaisir de chacun (veuillez préciser lors de votre commande si vous possédez une 48 SX ou une 
48 GX). Vous trouverez donc pour 48 SX ou 48 GX : 

U1ILS-1 : une carte ROM utilitaires de très haut niveau 1 ! ! (Assembleur - Désassembleur- Word pour HP 
- Exploreur de librairies - Convertisseur de codes S/SX vers G/GX - lecture de mémoire RAM et ROM ~ 
Pour programmer en external - Communiquer avec le minitel - BBT - PCtools - etc... ) 

JEUX-1 : une carte ROM jeux ; Je must ! î ! (Xennon - Tétris - Arkanoïd - Vader - Lemmings - Diamant - 
Pacman - Solitaire - Mazzogs - Garbage - Phoenix - Tunnel - Black Jack - etc...) 

HPMAN1AC-1 : une carte ROM super géniale !!! (Démineur - Editeur de tableaux - Jeux de réflexion - 
Rcversi - DIGITAL pour écouter les sons digitalisés - MUS ED TR pour composer des musiques - PIANO 
pour composer sur votre clavier - B1GANNR pour faire défiler en gros caractères - PROTECT pour 

protéger vos librairies - RECOVERS pour retrouver vos données perdues - PORTS pour voir le contenu 
des ports - MEGAZAPP une super télécommande - etc...) 

U 1TLS-2 : une nouvelle carte rom utilitaires ( PCD FA’- ANTM - MORS - DATAB - CARTE - CHIMIE 
MONT - RAMGX - FTLDE - SCROL - AS DK - MATH - DIGI -) 

□Si IElJX -2 : une autre nouvelle carte rom (EM B R - POKE - QREV LO DRU - LEMM - WILLY - SUPER 
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256KB dans une 
HP48G 

c'est possible ! 

allez vite 
à fa page 39... 

30 mégas de 
programmes 
sur disquettes pour 
votre HP48 ! 

^ courrez à la page 38... 




NOUVEAUX PRIX A LA BAISSE !!! 

380 F TTC la carte 720 F TTC les 2 cartes 

980 F TTC les 3 cartes 1450 F TTC les 5 cartes 

MIC R OC A R DS ne vend pas ces logiciels ; i) les propose sur support carte ROM. 

1 x prix de la carie correspond au prix du support électronique, augmenté des frais ordinaires 
de conception, de gestion etc... 

Le choix de la carte ROM s'avère très pratique pour les 80 % des utilisateurs de HP48 qui ne 
possèdent pas de PC compatibles. 

De plus, leur accès esi immédiat et inaltérable ; ils n’occupent pas de place mémoire dans la 
calculatrice. 

Nous vous rappelons cependant que ecs logiciels relèvent soit du domaine public, soit des 
freewares, soit des sharewares. 

Les noms et coordonnés des auteurs, lorsqu'ils sont connus sont toujours indiqués clairement. 
Quani aux sharewares, sachez que vous avez une obligation morale vis à vis de leur concepteur 
Lisez attentivement Je "ABOUT" ou "INFO" lorsqu’il est fourni. 


Pour commander, utilisez de preference notre bon de commande à la fin du magazine, frais de port coMssjimo recommandé ■ 

jusqu’à 1500 F de commande : 45 F TTC au delà de 1500 F : 60 F TTC 

document non contractuel 
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EDITORIAL 


Chers lecteurs. 

Je sais, nous sommes à l'amende. La sortie de ce numéro a du retard. Mais, mieux vaut tard que jamais ' Vous êtes très 
nombreux a guetter avec impatience sa présence dans les kiosques et les maisons de la presse, nombreux é«alcmem à 

un maximum informations et de programmes intéressants, avant de publie'. CeD £ “ 1"! 
pi^\u. Chaque jour, des lecteurs nous signalent que POCHE COMPUTERS est difficile à trouver 

A ce sujet, s, la grande majorité des marchands de journaux font correctement leur travail nous constatons souvent une 
que ques uns ne lotit aucun effort pour taire connaître le magazine. Et, même sans le promouvoir (ce qui ser tit inespéré -t 
le journal n est quelquefois même pas placé sttr les présentoirs, ou. dans le meilleur des cas, placé^ d W «et 

, g , , P turons dans les chaumières”, quand ce n'est pas soigneusement caché derrière d’autres (la plupart du temps 
obsolètes), faut avouer que pour un nouveau lecteur potentiel, les chances de trouver POCHE COMPUTERS sont plutôt 

etc tu s. dans un tel cas, n hesttez pas a le faire remarquer au vendeur, et éventuellement à nous le signaler Vous pouvez 
egalement remettre subrepticement POCHE COMPUTERS sur le présentoir, bien en évidence ! ' * ' P 

Ueu dit, vous trouverez quelques nouveautés intéressantes dans ce numéro 4 

La confirmation (si c'était nécessaire I) que le monde des "Poches" évolue à la vitesse grand V • faisant de plus en nlus 
d adeptes a travers le monde. La société PSION vien, de s'équiper d'une chaîne de montage ultra ntod .kmc c ,t d 

SSS s rs fsrr " s “t 3 ": a «— » ««n. * z ^ 

pttciston tin micron . Mtcrocards importe de puis peu un nouveau pocket 386. le Palmnote II s'en vend plusieurs 

ouXxhVSx ^ C ° nSlrUire UnC nOUVelle USine “ extrême-orienfpotu Sri^ê: 

supérieur aux^SLX eU^fx qU ' ViCn " Cm de SOrtir - U 200LX en Fra "“, connaît un beat, succès, bien 

La confirmation également que les cartes PCMCIA deviennent un véritable standard. On ne compte plus les fabricants qui 

I , posent des canes toujours plus attrayantes ; mémoire ram ou flash, disque dur. Scsi, ethemel son entrées-sorties etc 

Heureusement, les prix sont en baisse très sensible. son.entrees sot lies, etc... 

nZîère CS '| alCUlatriC “ qUi inves,issem complètement le monde lycéen et étudiant, au point que. de nos jours, un élève de 
tremtete, s il ne connaît pas assez, bien sa calculatrice, peul paraître ringard... 

C aslo FV 9600 'n HP48 ^ /GX regncnt tou j ours en maître - Ma 'S le combat est acharné entre la TI82 et la toute nouvelle 

II f -, , ? )>0 ' I f an 3 loute pras'haine sortie de la HP38... Vous trouverez le résumé de ce match en paves intérieures 
I faut dire que le marche est énorme. Les fabricants s'ingénient à proposer de nouvelles machines avec des fonctionne 
p lus en plus puissantes. Les consommateurs tirent profit également de cette lutte d'influence, en bénéficiant de ces calculatrices 
Les élaborées. Comparez avec uneT157 , TI59 ou Casio FX602 des années 73-80 et voyez la diffère 

N(,us démarrons une nouvelle série d'articles au sujet des organiseurs. Un comparatif d'applications pour les forces de 
\cnie vous fera sans doute vous intéresser au Sharp IQ 8900 (test complet dans le numéro 

autre part nous inaugurons une page réservée au courrier des lecteurs. Ce journal est aussi le vôtre 

Concernant les lecteurs, nous regrettons de ne pas pouvoir publier tous les articles qui nous arrivent essentiellement n-,r 

le prochain ^ÆomputfrTn T ' eUr 7" '"T ^ “ nUraérü prennent palienœ ; <* sera sans doute pour 
il T POCHE COMPU TERS. Nous tenons de toute façon à vous remercier tous pour votre spontanéité Cenend in, 

P - P ; ^ ssayez nous lournlr vos programmes ou informations sur disquette PC : que de temps o a -mé ' 

raF U COMPUTFRs‘ ^ ^7" ^ en mesure "taintenan, de vous fournir les logiciels de 

pour les textes comportant des signes spécifiques (exemple calculatrices Cas, o), nous ne 

ic tansmtssion sur fichiers asen. Vous pourrez lire ces fichiers avec différents traitements de texte! Word Works Wordstar 

h ou tout simplement avec un éditeur classique du dos ou de Windows, ainsi qu'avec le pro ra n ^ L ST ( Sé 

P blic) qui sera tourm avec chaque disquette. Nous espérons ainsi éviter de longues heures de fra, e , lu «Z* 
aléatoires (erreurs d'impression - erreurs d’imprimerie etc...) PP P mo,ns 

N B : je me permets de rappeler que l'accès aux petits encarts d'information sur les clubs ou les fanzines est "ratuit Oue les 
personnes contnbuan, au bon fonctionnement de ces clubs nous contactent, nous les aiderons à mieux se CS 

Pi cire MARTIN 
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LE COURRIER DES LECTEURS 

TRIBUNE LIBRE : n'engage que leur auteur 
(les tiers visés bénéficient d'un droit de réponse prioritaire) 


"Coup de gueule" d’un lecteur : 

Non, non, ei non, Casio ne copie pas Texas Instruments ! 
Si, un an après la TI-85, Casio sortait des machines au clavier 
redisposé, pourvues de menus, et gérant les matrices, c'est 
seulement par hasard. Si un an après la TI-85, Casio sortait 
une machine avec 32ko de mémoire, un écran large, et 
connectable avec d'autres, c'est encore un hasard. Enfin, si 
un an après la TI-85, Casio sort des machines dont l'écran se 
divise, et de couleur verte, c'est toujours un hasard ! 

La preuve : les nouvelles Casio n'ont pas TOUT ce qu’on les 
Texas. Elles ne possèdent pas de langage de programmation 
structuré qui recouvre l'ensemble des possibilités de la 
machine, ni un éditeur très rapide, ni cette souplesse qui 
permet de manipuler en même temps un vecteur, des nombres 
dans diverses bases, une matrice complexe, et l'équation issue 
d'une régression polynomiale, ni un clavier aéré aux touches 

larges, ni des piles économiques, ni un excellent manuel 
pedagogique. 

N’en demandons pas trop : Casio n’a pas (encore ?) tout 

copié... Un jour, par erreur, Casio écrira "Texas Instruments” 
sur ses machines.... 

Yves DUCOURNEAU - 20 ans - étudiant en informatique 
94200 IVRY sur Seine 

NDLR : Vos propos sont peut-être justifiés, nous ne prenons pas 
partie, en tout cas ils n'engagent que vous. Cependant, à la 
décharge de la société Casio, non contents d'être d'excellents 
fabricants, ils sont aussi innovateurs dans bien des domaines. Et 
puis, où commence véritablement l'invention ? Qui ne copie pas 
l'autre... il faudrait remonter à ia conception de la roue. L'invention 
pure est très rare, le progrès est fait d'une succession 
"d'améliorations" d'inventions. 


Une lettre pour Hewlett Packard 

NDBL : M Bocquet, lecteur passionné et fervent utilisateur de sa 
HP48GX vient d'obtenir la traduction française du manuel de 
référence de la 48G/GX. En effet celui-ci n'est malheureusement 
proposé qu'en Anglais. Ce qui, vous en conviendrez est un comble 
pour une machine ayant un tel succès commercial dans notre 
pays. Suite à différents courriers enchangés entre M. Bocquet et 
HP, notre lecteur a eu gain de cause. Ce qui fait que vous pourriez 
(conditionnel !)maintenant obtenir ce livre traduit. Voici la dernière 
lettre qu'il a envoyé à HP, à l'attention du responsable juridique. 

Monsieur, 

J ai bien reçu la traduction du manuel de référence de la 
série HP48G, et après les premières utilisations, je puis vous 
assurer qu’elle est indispensable ! 

Je vous remercie personnellement, et à travers vous, les 
responsables HP d'avoir réagi positivement à ma demande. 
Pour moi, le problème est réglé. Aussi je pense à tous ceux 
qui n'ont pas eu la volonté de vous écrire. Est-ce que l'édition 
du manuel en Français va suivre ? Il serait bon pour HP de 
reconsidérer la valeur d'une traduction "côté utilisateur". C’est 
un point à ne pas négliger, même si la réputation de qualité 
et de fiabilité du matériel est excellente. L "excellence" doit 
être totale, et la concurrence n’aura qu'à suivre ou à perdre 



ses clients !... Comme promis lors de notre entretien, je vais 
informer une revue spécialisée de 1a bonne volonté de HP 
de résoudre positivement les petits litiges, à la plus grande 
satisfaction de ses clients. 

M. BOCQUET (92504 RUE1L MALMAI SON ) 

NDRL : Apparemment, on ne peut que se féliciter de la réaction 
positive de HP ; réaction d'un grand constructeur. Affaire à suivre 
pour l'obtention de ces livres... 


Propos d'un lecteur assidu : 

Bravo pour POC HE COMPUTERS ! Ce journal comble un 
vide, répondant aux attentes des nombreux utilisateurs de 
machines de poche. 31 est aussi un moyen de communiquer 
avec les clubs existants pour tel ou tel fabricant de machine. 
La périodicité élastique me semble paradoxalement être un 
bien, car elle permet de garantir la qualité du contenu de la 
revue, qui ne paraît ainsi que lorsque la matière nécessaire 
est réunie. L’exercice est en effet périlleux, diverses tentati- 
ves ayant démontré la difficulté de durer, la plupart des lec- 
teurs (dont moi-même) se bornant à un rôle passif. 

Gérard EVRARD 95280 Jouy-le-Moutier 
NDLR : L'analyse de ce lecteur est juste, mais cependant incom- 
plète. En effet, la difficulté de durer est souvent également liée à 
des problèmes d'équilibre financier (toujours très délicat à réali- 
ser dans un magazine ; en l'occurence, POCHE COMPUTERS 
n'a pratiquement pas d’annonceur payant). 

Un autre lecteur de TOULON : 

Essayez d’approfondir vos tests de machines, peut-être en 
consacrant plus de pages ou bien réaliser un banc d'essai 
comme dans d'autres revues avec des machines similaires 
ou concurrentes. Sinon, continuez, je viens de découvrir votre 
revue et espère avoir de nombreuses fois à vous lire. Bon 
courage. 

M. LABBE Laurent 

NDLR ; Merci pour ce soutien moral. Quant aux tests de machi- 
nes, suite à de nombreuses demandes (dont la vôtre) dans le 

prochain numéro (N°5), nous ferons paraître un long article à ce 
sujet. 

Enfin, un lecteur, analyste-programmeur : 

La partie la plus intéressante est pour moi celles des "news” 
et des critiques sur tel ou tel pocket. La partie programma- 
tion est , certes, indispensable pour ce type de revue, mais 
ne devrait pas, à mon avis, être trop abondante pour laisser 
place à des rubriques pédagogiques à l’initiation à l’outil in- 
formatique, à la méthode de programmation, à l'analyse du 
problème, et surtout à l'utilité de certains logiciels mécon- 

nus pour pocket, M. Alain FOURNIER - 91- Ste GENEVIEVE 
NDRL : Nous tenons absolument à faire paraître de nombreux 
programmes, en accord avec une pratique du temps des 
"Hebdogiciels" et autres "Ordinateurs de poche", pratique pres- 
que complètement disparue de la plupart des magazines d'infor- 
matique. En cela nous croyons fermement à la vertu didactique 
de cette pratique. 
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NEWS 


par JL LECOMTE 


APPLE : 

Le nouveau "Newton” MESSAGE PAD 120 est prévu 
pour début 95. Celle nouvelle version devrait corriger 
les erreurs du MPI 1 0 en apportant un nouvel écran moins 
réfléchissant, un processeur ARM6 1 0 toujours à 20Mhz 
mais consommant moins, ainsi qu’une optimisation du 
système d'exploitation permettant une plus grande vitesse 
d'interprétation du langage "NEWTON SCRIPT", mais 
l'apport le plus important est sans nul doute l'ajout de 
mémoire interne. 


La société NOGEMA vient de sortir le MOBI-COM 

Le MOBI-COM est un boîtier permettant d’intégrer le 
HP 1 00LX ou le HP200LX afin de le transformer en station 
de communication avec le réseau MOBIPAC-MOBITEX. 
MOBI-COM intègre dans son boîtier un modem Ericsson 
2060 agréé par le réseau MOBIPAC7MOB1TEX, et une 
batterie rechargeable NiCad d’une capacité de 1300mA/ 
heure permettant une autonomie supérieure à une journée 
en pleine charge. Enfin, en standard un module de 
communication de messagerie est livré en utilisation avec 
accès au minitel (36.27.00. 1 6) 



Le SHARP IQ-8900 est sorti 
voici quelques mois déjà. 

Muni de sa carte de 
programmation basic ; c'est 
un ordinateur. Mais il est 
aussi et surtout un puissant 
organiseur, avec traitement de 
textes, gestion de fichiers, 
gestion de projets, classeur, 
profil, calendrier -agenda -emploi du temps et calculatrice. Son écran 
tactile est impressionant. Le tracé s'effectue avec un stylo, il possède 
256K ou 5 1 2K de mémoire ram interne, et i 1 accepte des cartes mémoire 
jusqu a 5 1 2K. De taille réduite ( mais avec un grand écran), il pèse 300g, 
et peut fonctionner sans interruption durant 80h !Une série de logiciels 
divers sur carte vient compléter ses atouts. Il est possible de placer un 
petit modem interne pour le faire communiquer. Enfin, son prix à moins 
de 3000F ttc le positionne dans un excellent rapport qualité-prix, 
notamment dans le marché des grands comptes. 


MADE IN U.S.A. ! 

Décidemmenl, rien ne peut plus 
nous étonner aux US. 

Relevée dans un magazine, cette 
publicité pour un holster. N'y 
compter pas y mettre un revolver, 
mais plutôt votre pocket adoré ! 

1 ! est composé de 2 compartiments. 

Un, juste en dessous de l’aisselle 

■J «|r/l. Mil 

pour y placer votre micro, et un autre au niveau de la cein- 
ture dans lequel trouveront place vos cartes de crédit, pa- 
piers divers, accessoires, piles etc... Pour la petite histoire, ie 
fabricant indique que le "Pocket Liberator" est absolument 
indétectable sous un veston. Bill CLINTON est prévenu, gare 
aux Pocket s ! 
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UN SERIES 3a EN BOIS ! 



MICROCARDS vous propose le tout nouveau Psion Sériés 3a 
<512 K.) couleur bois, imitation ronce de noyer ! Ceci est du 
plus bel ef let. Riche idée que de s’intéresser aussi de l’esthétique. 
A défaut de posséder une Rolls ou même un Range Rover pour 
leur tableau de bord, vous allez pouvoir montrer votre Psion ! 
Quant à l’électronique, rien de changé par rapport au Sériés 3a 
classique. 

Attention, leur nombre est limité. Qu'on se le dise... 


DEMAIN DES CARTES FLASH 
PCMCIA type I de 1,2 GIGA octets !!! 

C’est sans doute pour 1997, En effet les sociétés américaine 
SUNDISK et japonaise NEC ont décidé de fabriquer ensemble 
des mémoires Flash de 32MB. Comme il est possible physique- 
ment de placer 16 de ees mémoires dans une carte Pcmcia type I 
faites le calcul : 512MB (et 1,2 Giga avec Stacker). Quant aux 
cartes de type II (épaisseur 5mm) et de type III (10,5mm) ou de 
type IV (nouveau : 14mm), je vous laisse calculer le nombre de 
mémoires supplémentaires que l’on pourra placer !! ! 

"™ IMI11 T — . 


NOUVEAU: La HP 3, SC 

HP vient de sortir une nouvelle calculatrice d’entrée de gamme. 
La HP 38G est graphique, possède quelques 600 fonctions, 
avec 32K de mémoire. Une belle bagarre en perspective entre 
les nouvelles Casio FX 7900 FX 9900, la TI 82, et celte calcu- 
latrice. Affaire à suivre... 



Carte ENT REE/SORTI E ! 

Il est désormais possible de se 
procurer des cartes PCMCIA 
type II (HP 100-200 et de nom- 
breux subnotebooks), pour effec- 
tuer des acquisitions de données; 
8 voies, 20 KHz, 1 2 bits, Analo- 
gique-Digital, avec 3 in/out bit 
digital. 

Des adaptateurs à cette carte sont prévus : RS 232 et RS 422. 
RS 485, IEEE 488. 24 entrées/sorties etc,.. Cette information 
intéressera de nombreux chercheurs, en faculté ou en labora- 
toire, ainsi que des amateurs éclairés voulant piloter certains 
accessoires à partir de leur Pocket, 
contact : MICROCARDS 
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L’ÉQUIPEMENT DES FORCES DE VENTES : 

J’en ai vu qui fonctionnent ! ... 

par Patrick DEHLINGER 

Oui d entre- vous n a lu de merveilleux articles sur la joie du vendeur équipé par sa direction du nec 
plus ultra en matière d- informatique de force de vente (merci Patron pour le portable entre les dents , la 
sacoche perso dans la main gauche et la valise d y échantillons dans la droite...) 

, Soyons sérieux : portable veut bien dire portable et pas transportable ; fini les notebooks, vive les Assistants Personnels 

Electroniques (PDA en Anglais, ou APE pour - 1 singer " les américains). Le problème est donc : du notebook ou de l’ordinateur de 

poche (PDA), qu est-ce qui plaît le plus à un représentant, car après tout l'intéressé c'est lui !, sachant que les besoins de 99% des 
équipements mobiles sont couverts par l’ensemble des matériels énoncés. 

Commençons par comparer les caractéristiques principales de chacun . Pour ce faire, nous avons choisi (presque arbitrairement!) le plus 

iépandu des notebook: le 1 OSH1BA 1 1 9 10 puis les plus connus des PDA disponibles sur le marché: le MESSAGE PAD d’APPI F et 
1TQ8900 de SHARP. 


Ordinateur : 

Tl 910 

Message PA D 

IQ8900 

mémoire (RAM+ROM) 

4Mo 

7Mo 

2 Mo 

disque 

120 Mo 

non 

non 

PCMCIA 

oui 

oui 

J FJ DA 

système 

Dos + Windows 

NEWTON 

SHARP workplaee OS 

processeur 

486SX33 

A RM 6 1 0 risc 20Mhz 

SHARP 3Mhz spécial 

taille en cm (environ) 

21x29,7x4 

18x11x2,5 

1 5x 1 0x2 

poids (environ) 

2.5 kg 

HP 

400 gr 

30()gr 

autonomie 

8 heures 

1 mois 

4 mois 

alimentation 

batteries Nicad 

4 piles AA 

2 piles AAA 

pièces en mouvement 

disque dur 

non 

non 

système de pointage 

track-ball 

st vio 

stvlo 

clavier 

oui, AZERTY 

non (émulation logiciel) 

oui, AZERTY 

connectique sans fil 

non 

standard à infrarouge 

standard à infrarouge 

connexion réseau local 

option 

standard APPLELINK 

option 

écran 

640x480 

320x240 tactile 

240x 1 60 tactile 

fonction organiseur 

option (ex : LOTUS) 

standard 

standard 

logiciel de communication 

WINDOWS 

standard 

standard 

rec o n n ai s sauce déc ri tu re 

non 

standard (PAR AG RAF) 

non 

compression de données 

DOS x 2 

APPLE x 3 

APPLICATIF x 8 


Voyons maintenant ce qui les différencie vraiment: 


Portabilité 

dans une sacoche 

dans la poche de veste 

à la place (?) du portefeuille 

simplicité d emploi 

correcte: Windows 

évidente et intuitive 

évidente et intuitive 

fonctionnalités standards 

pauvres 

riches 

riches 

évolutivité 

J 

périmé à la livraison 

une gamme par an 

A LLJ tvil 

une gamme tous les 1 8 mois 

matériel annexe j 

a c c u s/co rdons/c 1 1 a rge u r 

rien 

rien 

connexion à imprimante 

l B 1 ■ À f 1 ■ «- 

simple (cordon) 

simple (cordon) 

simple (cordon) ou adaptateur. 

facilite de communication 

manipulation d'icônes 

stylo, interprétation 

stylo et icônes 



d’ordres, icônes 


utilisation debout 

non 

bien sûr! 

bien sûr ! 

“ voltige ” d'un logiciel à l’autre 

classique 

très aisée 

très aisée, accès direct 

Saisie de texte 

clavier 

éc ri tu re man use ri te 

clavier 

PRIX 

env. 10.000Fht 

4.600Fht 

2450Fht 

Amortissement 

classique 

classique 

< 2500F donc pas d’amortisse- 




ment possibilité de frais généraux 


NOTE SUR LA MÉMOIRE: 

La taille mémoire sur les différentes machines demande un éclaircissement, en effet, un logiciel étant dépendant de code machine, lui 
meme dépendant du processeur, et de bibliothèques de fonctions (toutes aussi dépendantes) le nombre d’ instructions pour une fonction 
est directement hé au processeur, et donc il est très difficile de comparer Octet par Octet des machines très différentes. Dans les trois cas 
cites, on peut néanmoins donner le pourcentage d’occupation de la mémoire centrale pour une application de saisie de commande type: 
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TOS HIB A ( DOS/WIN DOW S } 

NEWTON 

SHARP OS 

Occupation système (ram) sans programme 
Occupation d'un programme opérationnel 
(code + bibliothèque + système) 

45% environ 
85% environ 

5% environ 
20% environ 

1 5% environ 
25% environ 


Le portable classique dispose de nombreux atouts : 

Facilité de portage entre les marques, par P utilisation de standards 

du commerce: (WINDOWS, DBASE,, ORGANIZER. ..etc.) 

Simplicité de programmation (par ex: en CLIPPER, ou en Visual 
Basic avec ACCESS (JET) 

Prix sans cesse en baisse 

Compatibilité totale avec les ordinateurs de bureau 
Possibilité de station d'accueil au bureau 
Puissance du processeur (encore que...) 
mais aussi de quelques inconvénients (souvent majeurs) : 

Le prix, au moins le double du plus cher des PDA (à multiplier par 
le nombre de vendeurs !) 

Son encombrement et ses appareils annexes (câbles, alimentations 
etc. ..) 

La lourdeur des applicatifs, presque toujours conçus sans analyse 
ergonomique (puisque c'est standard, n’importe qui peut 
développer une application) et par des SSII non spécialisées. 

La compatibilité réduite (PC vers PC, ou M AC vers MAC). 

Néanmoins, sous l'angle du représentant qui devra utiliser tous 
les jours son outil, il ne fait aucun doute que les PDA remportent 
le match. Ils associent : 

Facilité d’emploi. 

Légèreté et économie 

W- 

Ergonomie de l'appareil, “ c’est fait pour... ” 

Ergonomie du logiciel, développement par des sociétés spécialisées 
(bien que peu nombreuses) 

Polyvalence 

Connectivité aisée avec d’autres ordinateurs (PDA à PDA ou PDA 
à PC, PDA vers AS/400, PDA vers RS6000 etc. ...) 

Une liaison sans fils (vers les autres ordinateurs ou vers les 
Imprimantes) 

Compatibilité totale: connectivité vers APPLE , PC, UNIX etc.... 
Développements sous DOS/WINDOWS ou APPLE/MAC 

Technicité (processeurs risc puissants ou très spécialisés, comme *Sécut 
le SHARP ) 

Modernité, tout le monde en parle, c'est l’ordinateur du futur 
Une remarque: nous n’avons pas évoqué les Tablettes (ou PC 
Ardoises), les raisons sont simples: 

-pauvreté du processeur pour les abordables (ex: FUJITSU 
POQET PAD) 

-prix trop élevé pour les puissants (ex: IBM, TOSHIBA, FUJITSU 
POQET PAD+) 

Et puis la consommation en mémoire des applications développées 
sous C LIPPER ou autres DBASE sur les tablettes d’entrée de 
gamme IMPOSE l'achat d'extensions coûteuses ! 

De plus les temps de réponse, même sur certaines tablettes haut 
de gamme, sont souvent désespérants (lorsque l’on peut les 
comparer bien sûr, car rien n’est plus facile pour un vendeur 
d al limier que toutes les machines donnent le même résultat, et. 


souvent, par manque de moyens de comparaison, on pense que 
c’est effectivement ‘le meilleur’ !). 

Si nous passions maintenant aux logiciels ? 

Pour faire fonctionner un ordinateur, il faut au moins: 

s^^st^ïme d 'exploitation (ex: DOS, OS/2 (version>2. 1 ), 
NEWTON ou constructeur.,.) si possible transparent pour 
l'utilisateur qui n'est que rarement un praticien de l'informatique. 
Une interface utilisateur (ex: WINDOWS pour les machines DOS, 
toujours incluse dans le système d’exploitation pour les PDA ou 
pour OS/2) 

Un logiciel de gestion de bases de données, exemple DBASE, 
ou ACCESS ou celui présent dans la machine 
*Un logiciel organiseur, pour gérer les calendriers, les rendez- 
vous, les agendas, le carnet d’adresse, les mémo personnel s... etc. 
(inclus dans les PDA). 

*Un système de communication RAPIDE et FIABLE car souvent, 
ce poste, le moins étudié de l’équipement, est le plus cher à terme! 
pensez donc à vos commerciaux, communicant TOUS les jours 
pendant 10 mn. de toute la France, alors qu'un logiciel bien étudié 
peut ramener ces coûts à 1 ou 2mn (coût pour 50 commerciaux: 
145 000 F/ans contre 43 500 F/ans dans le deuxième cas !). 

ntin, un logiciel spécifique qui aide VRAIMENT le représentant 
et donc améliore sa productivité, sans oublier que l’outil doit aider 
à la vente non pas faire la promotion de son fabricant!. 

Jetons un coup d’oeil sur ses caractéristiques au minimum: 
^Interface graphique spécialement adaptée à l’applicatif (donc 
conçu EN DIALOGUE avec les représentants et en fonction de 
leurs méthodes de travail sur le terrain, celles qui sont vraiment 
utilisées, pas les théoriques !). 

* Accès instantanés, aux fonctions de productivités personnelles: 
Agenda, Calendrier, Mémo, Planning des visites, Calculatrice, Cane 
de visite /clients. Répertoire téléphonique. 

* Intercommunicabilité de toutes ces applications 
l ' c * ,M,, ‘ités accès, avec au moins: 

Protection par mot de passe non effaçable (une tentative de 
piratage provoque l'effacement des données confidentielles) 

Identification automatique Utilisateur/Machine (pas de 
“ piratage ' entre copains ou concurrents) 

Lors de la transmission, utilisation de protocoles auto- 
protégés avec encryptage des données 

Accès à un serveur désynchronisé de l’ordinateur central 
(connexion “ par lots ") supprimant le risque de piratage des 
données de l'entreprise 
Gestion du catalogue: 

Références articles 

Plusieurs niveaux de sous-références (gammes) 
Désignation claire des articles 
Gestion du conditionnement 
Gestion des tari I s (généraux, remisés ou spéciaux) 
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Informations sur les stocks (disponibilités, ruptures, articles 
de remplacement...) 

Gestion des clients: 

Code et Références (nom, adresse, téléphone) 

Taux de remisage spécifique et conditions 
Code règlement 

Conditions spécifiques (franco,..) 

CA réalisé en cours 

CA moyen réalisé par année 
CA réalisé l’année précédente 
Commentaires spécifiques confidentiels 
Situation en-cours paiements 
Situation en-cours commandes 
Situation en-cours livraisons 
Statistiques 
Prise de commande: 

Saisie interactive 

Gestion des numéros de bons de commande 
Récapitulant de la commande en accès permanent 

Edition locale ou distante de la facture avec 
attribution d’un numéro unique 

Préparation de la visite 

Gestion des tournées 
Transmission au site central 

Connexion simple (en local) 

Grande vitesse (14.400 bps) sur réseau commuté 

(par modem) 

Accusé de réception par le siège en fin de 
transmission de commande 

Mise à jour instantanée des fichiers, site central 
(stocks, en cours, paquetage...) et PDA 

Transmission des modifications catalogue vers le 

PDA 

Messagerie Siègeougent 


Dans un prochain article, nous établirons un comparatif complet 
des PDA en présence sur le marché actuel et essaierons de 
comprendre pourquoi certains constructeurs font marche arrière 
sur ce marché alors que TOUS les experts prédisent un éclatement 
dans les quelques années qui viennent. 

En résumé : Vous souhaitez équiper vos forces commerciales 
avec un appareil portable ? : 

Analysez calmement vos besoins réels et raisonnables, n’oubliez 
jamais que chaque prix de station est à multiplier par le nombre de 
vendeurs, que l 'outil vise à la productivité et pas au luxe, qu’il doit 
aider LE VENDEUR, sans le gêner dans sa démarche commerciale, 
qu il doit se faire oublier au bénéfice de l argumentation 
commerciale et de la qualité des produits vendus, ne négligez pas 
le coût des ‘options obligatoires’ tels que les modem, extensions 
mémoires etc..., et enfin intégrez dans votre budget les coûts de 
maintenance et de communication. 

Surtout, adressez-vous à une SSII spécialisée dans le développe- 
ment sur outi 1s portables, car rien n est improvisé dans ce domaine. 

surtout compte tenu du coût global d’équipement de votre force 
de vente. 

L’auteur: 

Patrick DEHLINGER a fondé PALMWARE à TOULOUSE 
voici un an. Cette société est spécialisée dans la veille 
technologique dans les domaines des ordinateurs “ ultra- 
portables ”, type PDA ou ordinateur de poche et toutes 
réalisations sur ces appareils. A trente ans, il a déjà un passé 
de quinze ans en informatique de poche et quelques réalisations 
notoires; exemple : premier Minitel de poche sur ATARI 
PORTFOLIO, Minitel sur SHARP PC1360, “ plus petit 
modem “ (taille d’un morceau de sucre !), développement du 
jeu d’échecs pour les SHARP séries IQ, pour SHARP Japon, 
de nombreux équipements de forces de vente etc... 


N 

Décideurs, concepteurs, votre temps est précieux, 

faites confiance à la société 

PALMWARE (agréée développeur SHARP) 

15 ans au service technique des pockets sur le plan logiciel. 
Consultez un expert pour tous vos problèmes de mise en place 
de force de vente - réseaux techniques - logiciels spécifiques - 

conseil en matériel portatif (toutes marques) 

Un professionnel ; la meilleure garantie d'une 
réalisation impeccable et à moindre coût. 


V 


contact à Toulouse : P.DEHLINGER 
tél 61.41.74.52 fax 62.14.44.21 
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TI-82 contre Casio fx 9900 GC : le match 

par Loïc FIEUX 


Im sortie des nouvelles Casio fx 7900 et 9900 va certainement remettre en question le succès commercial 
( mérité ) de la Tl -82. Destinées à des lycéens en première ou en terminale, les fx 7900, fx 9900 et T 1-82 vont désormais 
s ’ affronter autant dans les salles de cours que chez les revendeurs. Nous commencerons par présenter les deux nouvelles 

Casio puis nous arbitrerons un match amical opposant la TI-82 ( jusqu’ici machine idéale du lycéen) à lafx 9900 GC 
de Casio . 


La fx 7900 

En 1991 Casio présentait la fx 7700 ripostant ainsi à la menace que 
constituait la TI-8 1 pour la gamme des graphiques Casio. En 1 992, la fx 
7700 est devenue la fx 7800 qui n'est autre qu’une version francisée de la 
fx 7700 inaugurant une nouvelle livrée verte. La version GC de la fx 7800 
permet une communication aisée avec une autre fx «GC» (7800, 8800, 
7900, 9900, etc.) ou un micro-ordinateur à l’aide d'une liaison série. La 
fx 7900 reprend la plupart des caractéristiques de la fx 7800 mais y ajoute 

- un menu général très confortable permettant, au moyen d'icônes ( !), de 
sélectionner le mode d’utilisation, 

- environ 475 fonctions, 

- un confort d'utilisation sans égal grâce à une interface intelligente guidant 
très efficacement l' utilisateur dans sa démarche. 

- un solveur d'équations capable de résoudre les systèmes de Cramer 
(systèmes de n équations à n inconnues) à deux ou trois inconnues ainsi 
que de rechercher les racines réelles d'un trinôme du second degré à 
coefficients réels... Tout ceci sc fait avec une facilité déroutante ! 

- une fonction de calcul du nombre dérivé, 

- cinq matrices sont disponibles, elles peuvent être manipulées dans un 
programme ce qui n’était pas le cas avec les fx 7800 ou 8 


Lafx 9900 

C’est la fx 9900 qui, comme nous allons le voir, constitue la nouvelle 
référence dans le domaine de la calculatrice graphique destinée aux lycéens. 
En plus des capacités de la fx 7900. la fx 9900 nous apporte : 

- un écran doté de 8192 pixels au lieu des 6144 pixels proposés par la 
plupart des écrans équipant les calculatrices graphiques (TI-81, TI-82, 
Sharp EL 9200/9300, et toutes les graphiques de Casio sauf les fx 6000/ 
6500 et 6300/6800). Ce grand écran (semblable à celui de la 11-85 qui est 
d'ailleurs fabrique par Casio...) est partageable en deux demi-écrans afin 
de visualiser simultanément, par exemple, une courbe dans son ensemble 
et un agrandissement d'un point particulier de celle-ci, 

- environ 626 fonctions, 

- une rapidité d’exécution inconnue jusqu'alors sur Casio, 

- un solveur graphique permettant une étude rapide des représentations 
graphiques de fonctions. Ce solveur met en évidence les racines, les 
extrema, les intersections et trace la fonction dérivée ou une tan écrite en 

•w- 

un point. Le lycéen dispose ici d'un outil performant pour l’étude de 
fonctions, 

- 26 matrices sont gérées et sont utilisables dans les programmes, 

- les nombres complexes sont traites par la fx 9900, 

- le solveur résout les systèmes de Cramer jusqu’à six inconnues et 
recherche les racines des polynômes jusqu’au degré 3. Les solutions 
complexes sont renvoyées par le solveur, 

- les suites sont traitées par la machine (suites récurrentes, etc.), 

- le tracé dynamique est une nouveauté spectaculaire autorisant 1 ’ affichage 
de courbes animées, 

- comme le faisaient déjà les fx de la série 8000, la fx 9900 permet de 
manipuler des «fichiers». Ceux-ci peuvent d’ailleurs être des programmes 
exécutables. La mémoire (32 ko, dont 24 ko utilisables pour les 
programmes et les fichiers) peut être répartie à la convenance de 
1 utilisateur entre les programmes et les fichiers qui pourront d'ailleurs, 
être protégés par un mot de passe. 

Compatibilité des fx 7900 et 9900 avec les autres Casio 

Les tx 7900 et 9900 restent totalement compatibles avec tous les 
programmes écrits pour la fx 4000P et toutes les graphiques Casio (7000, 
7500, 7800, 8000. 8500, 8800, etc.) elles profitent ainsi de la plus grande 


bibliothèque de programmes pour calculatrices graphiques. Le lycéen 
trouvera donc facilement tous les programmes dont il a besoin auprès des 
clubs, sur les services télématiques spécialisés (3615 Calculator, par 
exemple) ou dans les nombreux livres consacrés aux Casio fx («300 
programmes pour Casio fx», «Jeux et graphisme sur Casio fx», «Casio 
Ix : faites vos jeux», ces livres sont édités par Dunod). Cependant, certains 
programmes exploitant des nouveautés introduites par les fx 7900 et 
9900 ne seront pas utilisables avec des modèles plus anciens, ainsi, il 
n’est pas possible d’utiliser sur une fx 7800 un programme écrit pour fx 
7900 et manipulant directement des éléments d'une matrice. Pour l’année 
scolaire 1994-1995 la gamme des graphiques Casio est constituée des fx 
6800. fx 7800. fx 8800 et bien sûr des fx 7900 et fx 99 


Casio fx 9900 GC contre TI-82 

A l’occasion de ce comparatif, nous avons sélectionnés les différents 
domaines d'utilisation des calculatrices concernées intéressants le plus 
les utilisateurs, A l’issue de chaque «affrontement», nous concluons en 
précisant laquelle des deux calculatrices prend l'avantage. 

Aspect extérieur 

La calculatrice étant un outil de travail pour le lycéen, son aspect n'est 
pas négligeable dans la mesure où il peut être motivant. Texas Instruments 
a donné à toutes ses machines un look sérieux, voire austère. Cette 
apparence est commune aux TI-8 ! . TI-82 et TI-85 depuis 1 99 I . Surprise, 
les nouvelles Casio n’ont pas une banale forme de parallélépipède 
rectangle, elles sont minces au niveau du clavier et s’élargissent au niveau 
de l’écran, par ailleurs le dessous de la machine constitue une poignée 
ergonomique. Les modèles Casio destinés au marché français sont verts, 
l’organisation du clavier en touches de différentes couleurs est plus gai 
que les teintes foncées retenues pour la TI-82. Bien que les goûts et les 
couleurs ne se discutent pas. la TI-82 a une apparence un peu tristounette 
face à la fx 9900. 

Bilan : avantage Casio fx 9900. 

Interface et facilité d’emploi 

Une fois la TI-82 allumée, son utilisation est très proche de celle de la TI- 
81 (1991). L'interface est fondée sur des menus déroulants, un système 
désormais classique. Simple et efficace, l' interface tic la TI-82 ne propose 
pas «d'aide en ligne» afin d'aider l'utilisateur. Dès l'allumage, la fx 9900 
affiche un menu à icônes permettant de choisir l’un des 12 modes 
d'utilisation. Pour utiliser la fx 9900. il est nécessaire de choisir un mode, 
ceci permet de toujours savoir ce que l'on est en train de faire (graphisme, 
programmation, statistiques, etc.). A tous moments il est possible de revenir 
à ce menu en appuyant sur la touche [MENU|. Les fonctions sont 
présentées sous forme de menu horizontaux, les articles des menus donnant 
accès à des sous-menus sont signalées par un triangle blanc en bas à droite 
de l'article. L'interface est conçue de façon à simplifier au maximum la 
démarche de l'utilisateur» ainsi, tracer la tangente en un point à une courbe 
ou rechercher les racines d’un polynôme sont des opérations rendues très 
simples par la nouvelle interface implémentée sur la Casio fx 9900 (et fx 
7900). Bilan : avantage Casio fx 9900. 

Les capacités graphiques 

L’écran de la 1 f-82 affiche 8 lignes de 1 6 caractères sur 6144 pixels alors 
que la fx 9900 affiche 8 lignes de 2 1 caractères sur 8 1 92 pixels. Ces deux 
écrans sont partageables en deux demi-ccrans pour faciliter l’étude d’une 
courbe. Bilan : avantage Casio fx 9900. 
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Dessiner et jouer avec la machine 

La'1 1-82 permet de tracer des points, des lignes et des cercles. Par ailleurs, 
elle a la possibilité «d éteindre» un point isole ce dont n'est pas capable la 
tx 9900. Notons que la fonction GetKey permet de saisir la valeur d’une 
variable a la volée pendant l’exécution d’un programme. GetKey associée 
à la capacité d'extinction d'un point facilite grandement la réalisation de 
jeux graphiques sur la TI-82. La fx 9900 ne peut pas tracer un cercle à 
l aide d’une fonction spécialisée, ni éteindre un point isolé. La fx 9900 ne 
dispose pas d'un équivalent à la fonction GetKey. Dans le domaine ludico- 
graphique, la fx 9900 fera valoir son grand écran et ta rapidité d'exécution 
de ses programmes, ce qui lui permet, à la rigueur, de redessiner 
complètement une image après l’avoir effacé (fonction CLS), et ce, afin 
d’obtenir une «animation» graphique. La fx 9900 peut placer des points, 
tracer des droites, représenter des fonctions et effacer tout le contenu de 
l’écran. Bilan : avantage Tl-82. 

Etudier les fonctions et les suites 

La 1 1-82 et la Ix 9900 tracent les fonctions cartésiennes et polaires ainsi 
que les équations paramétriques. La fx 9900 propose un mode 
«inéquations» qui permet de résoudre graphiquement les systèmes 
d’inéquations (avec la Tl-82 il faudra user de toutes les astuces de la 
fonction Shade pour parvenir au même résultat). Le solveur graphique de 
la Ix 9900 permet de tracer facilement la fonction dérivée et la tangente 
en un point. Il permet aussi de trouver les coordonnées des racines, des 
extrema et des points d'intersections. Avec la TI-82, il faudra utiliser le 
menu DRAW (et son sous-menu DRAW) pour tracer la tangente et 
exploiter la fonction Solve pour rechercher les intersections. La fx 9900 
permet de représenter des courbes animées ce qui peut être utile afin de 
mettre en évidence un phénomène physique. Dans le cadre de l’élude d'une 
suite les fonctions proposées par les deux machines sont équivalentes. Ici 
encore, la fx 9900 s'impose avec sa rapidité d’exécution et son grand 
écran (gage de précision) mais plus encore grâce à sa facilité d’emploi. 
Bilan : avantage Casio fx 9900. 

Le calcul 

La 1 1-82 et la tx 9900 disposent de toutes les fonctions courantes des 
calculatrices scientifiques (trigonométrie, logarithmes, fonctions 
hyperboliques, etc.), manipulent les matrices, traitent les coordonnées 
polaires et cartésiennes, calculent arrangement, combinaison, intégrale et 
nombre dérivé. La fx 9900 comble une grosse lacune de la Tl-82 : 
f impossibilité de traiter des nombres complexes. Détail très important, 
le solveur fournit les racines complexes des polynômes. Bilan : avantage 
Casio fx 9900. 

Le solveur 

1 ,a t onction Solve de la 1 1-82 permet lu recherche d une racine ou d’une 
intersection. Lafx 9900 propose à la fois un solveur graphique pour l’étude 
des représentations graphiques (recherche de racine, extremum, point 
d’intersection, tracé de tangente, tracé de la fonction dérivé, etc.) et d’un 
solveur permettant de résoudre les systèmes de Cramer (jusqu’à six 
équations à six inconnues) et de rechercher les racines (réelles et 
complexes) des polynômes jusqu’au degré 3. Bien que des polynômes de 
degré 4 puissent être rencontrés au lycée, ceux-ci peuvent toujours être 
ramenés au degré 2 (bicarré) lorsqu' une recherche de racines est demandée. 
La limitation au degré 3 du solveur de polynômes n est donc pas gênante 
au lycée. Bilan : avantage Casio fx 


La programmation 

Les structures de boucles dont dispose la TI-82 font dire à certains que 
son langage est un pseudo-pascal. Il est vrai que les Lbl et Goto du langage 
(. asio devront être employés avec astuce pour rivaliser avec ces structures 
performantes (dont seule laTI-85 tire pleinement profit grâce à sa rapidité 
d'exécution ! ). Par ailleurs, la saisie de données pendant l’exécution d’un 


programme est plus aisée sur la TI-82 (fonctions Prompt, GetKey, etc.). 
Le langage Casio a pour lui sa simplicité et l’avantage d’être très connu 
dans les milieux lycéen et estudiantin. Bilan : avantage Tl-82. 

Temps d’exécution des programmes 

Nous avons exécute deux boucles de test équivalentes sur la TI-82 et la 
Casio fx 9900 dont voici les listings. 

O 

Sur la Tl-82 : 

: ! -> A 
:Lbl I 
:A+L>A 
: I f A<500 
:Then 
:Golo 1 
: End 

: Disp» FINI» 

Sur la fx 9900 : 

I ->A 
Lbl I 
A+ 1 -> A 
A<50()=>Goto 1 
«FINI» 

Ces deux programmes sont équivalents. Bien que le langage de la 'TI-82 
soit plus riche que celui de la Casio, nous avons ici l’occasion de vérifier 
que le langage Casio trouve toute son efficacité avec la fx 9900. Le temps 
d’exécution mesuré est sans appel, la fx 9900 a effectué scs 500 boucles 
en 4 secondes alors que la TI-82 a eu besoin de 45 secondes ! Comme 
nous I avons déjà dit, le langage de la Tl-82 n’est exploitable sans lenteur 
démesurée que sur i 1-85 (machine plus complexe - et plus chère - que la 
TI-82 et destinée à un public universitaire). Bilan : avantage Casio fx 



Capacité et affectation de la mémoire 

Sur les 32 ko de la Tl-82. seuls 29 ko sont vraiment disponibles. Ceux-ci 
devront être répartis entre les mémoires numériques contenant des nombres 
réels, les listes, les matrices, les mémoires de fonctions, les programmes 
et les images. Sur les 32 ko de la tx 9900, 24 ko sont disponibles et pourront 
être répartis entre les programmes, l’éditeur, les mémoires de fonctions, 
les matrices, les listes statistiques (simple et double), les mémoires 
numériques, le solveur. etc. Bien que moins de mémoire soit disponible 
sur la Ix 9900, cette mémoire peut être affectée à un éditeur de texte très 
commode pour les aide-mémoire dont les lycéens sont friands. Ces «aide- 
mémoire» (!) pourront être protégés par des mots de passe. La fx 9900 
gère plus de matrices que la l’l-82 (26 contre 5 ) et peut mémoriser un plus 
grand nombre de fonctions. Bilan : ex aequo. 

Le bilan 

Dresser un bilan n est pas chose simple si on considère que le choix d’une 
calculatrice est très souvent une affaire de goût ou une question 
d environnement. Cela dit, certains critères objectifs pourront nous 
permettre de conclure que même si la Tl-82 demeure une calculatrice 
intéressante, la C asio fx 9900 crée un nouveau standard et sc fait remarquer 
par une exceptionnelle facilité d’emploi (j’insiste) mettant ses capacités à 
la portée du premier venu. La TI-82 conserve les deux avantages que sont 
son langage riche et sa capacité d'éteindre des points de l’écran sans effacer 
tout 1 écran mais la tx 9900 s impose finalement grâce à ses solveurs 
(graphique, système de Cramer et polynômes), sa possibilité de calculer 
avec des nombres complexes et son excellent écran. La fx 9900 peut se 
vanter d’être la machine idéale pour le lycéen qui souhaite disposer d’un 
outil performant et très facile d'emploi. 
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PROGRAMMES POUR CASIO GRAPHIQUES 



PAR VIRY GAETAN 


NOTE CONCERNANT CES PROGRAMMES : 

Il fonctionnent sur toutes les casio sauf puissance 4 réservé à la 6800. 

<> signifie différent de, <= signifie inférieur ou égal, >= signifie supérieur 
ou égal, @ est la commande alpha-graph, => est la commande shift7. 


T =0, T =360, T (pas)= 10 sont acceptables. 

m ax sien 1 1 


mtn 


PUISSANCE 4 

«PUISS4» @ Md : Lbl 0 : «COL=»'?->A : A<0=>Goto0 : A>7=>Goto() 
: A=()=>Goto 2 : E[A]=6=>Goto 0 : lsz E[A] : lsz B : 5(A-l)+3->C : 
4E[Aj-l->D : Plot C-2,D-1 : PlotC+l,Y : Line : Plot X,D+1 : Line : Plot 
C-2.Y : Line : Plot X,D : Int (B/2)=B/2=>Goto 2 : Plot C,D : Line : Lbl 2 
: Plot 0,0 @ Goto 0 

Inutile de rappeler le but de ce jeu classique adapté à peu près sur tous les 
formats. 

REMARQUES : 

Il est possible de voir l'écran sans jouer en tapant 0 à «COL=?». 

Aucun coup n’est joué si on donne le numéro d’une colonne supérieure à 
la septième ou celui d’une colonne déjà remplie. 

Le jeu n’a pas de fin ; il faut donc le quitter en pressant ON/AC. 

DIAGRAMMES C I RC U LAI RES 

«CAMENBERT» @ Mcl : Range 36/1 1,74/1 1,0,4,6,0 : «NB F=»?->A : 
Lbl 0 : «F=»?->D[C| : B+3.6D!C]->B : Plot 5,5 : Plot eos B+5,sin B+5 : 
Line : IszC : CoA=>Goto 0 : Int (2B)/2->B : Lbl î : Plot cos B+5,sin 
B+5 : Dsz B : Goto I ; Plot 0,0 
REMARQUES : 


EX I REMI M { MINI & MAXI ) 

«EXTREMA» @ Md : «PR=?->Z : fax Z : «X M1N=»?->A : «X MAX=»?= 
>B : Lbl 0 : « 1 MI.2MA «?->G : G 2 <>1 Goto 0 : Lbl I : B-A->H : H<= I e- 
5 Goto 2 : A+H/3->C : Ans->X : Prog 0 : Gans->E : X+H/3->D : Ans->X 
: Prog 0 : Gans->F : E>F D->B : E<=F->C->A : Goto 1 : Lbl 2 : «X=» @ 
(A+B)/2->X @ «Y=» @ Prog 0 : ans->Y 

REMARQUES : 

L’équation de lacourbedoit être rentrée dans le PROG 0, l'inconnue étant X. 
Il faut entrer le nombre de décimales voulues à l’apparition du message « 
PR=? «. Ensuite, on peut choisir entre un minimum ( I ) et un maximum 
(2) de fonction. Le programme indique les coordonnées de l’extremum. 
Al l’ENTION ; 11 faut impérativement indiquerait programme une plage 
de recherche où ne se trouve aucun extremum, sinon il risque de chercher 
éfiniment. 


SUITES NU MERIQUES 

«SUIT NUM» @ Md : «NO=»?->A : 
: prog 0 : Ans->X : X+S->S : Isz A : 
«SN=» @ S 


«UNO=»?->X : «N=»?->N 
A<>N=>Goto 1 : «UN=» 


Lbl I 

X @ 


Les fréquences doivent être rentrées en %. On ne peut pas entrer plus de 
21 fréquences, sauf en utilisant Demf ( mode . .) 

Les axes ne sont pas visibles, et seule la partie du diagramme concernée 
par les fréquences est tracée. Par contre, ne pas indiquer des fréquences 
dont la somme est supérieure à 100% 

Précision : 5/18 de degré ( environ .278 ). Cette précision se fait au 
détriment de la vitesse. Pour aller plus vite, remplacer le « Dsz B : Goto 1 
« par « B-x->B : B>0 Goto I « où x est le pas. 

Sur 7000G, 7500G, etc... indiquez le range suivant : 1 08/3 1 ,202/3 1 ,0,4, 6,0 

EQUATION DE DROITES 

«EQU DR» @ «XA=»?->C : «YA=»?->D : «XB=»?->E : «YC=»?~>F : REMARQUES • 


REMARQUES : 

L’équation de la suite doit être rentrée dans le PROG 0, l’inconnue étant 
X au lieu de U » 

n 

Pour voir chaque terme de la suite, il faut remplacer « Ans->X : « par « 
"X=” (sP Ans->X @ «. Pour voir chaque terme de la somme, il faut 
remplacer « S+X->X « par « "SN=" @ S+X->X @ 

Rentrer les suites géométriques et arithmétiques comme des suites 
ordinaires. 

CONVERGENCE 

«CONVERGE» @ «NO=»?->A : «UNO «?->B : « L=»?->L : LBL 1 : 
«PR=»?->P : A->N : B->X : Lbl 2 : Prog 0 : Ans->X : lsz N : Abs (X- 
L)>=P=>Goto 2 : «N=» @ N 


« 


Y=AX+B» : «A=» @ (F-E)/(D-C)->A @ «B=» @ D-AC->B 


GRAPHES PARAMETRIQUES 

PROG 2 

«PARAM» @ «TM1=? >A : «TMA=»?->B : «TSTP=»?->C : Lbl 9 : 0- 
>E~H : « 1 A,2B,3P «7->f : l=2=>Goto 3 : 1=3 Goto 4 : A->t : Lbl ! : Prog 
0 : Ans>E=>Ans->E : Ans<F=>Ans >F : Prog 1 : Ans>G=>Ans->G : 
Ans<H=>Ans->H : T+C->T : T<B=>Goto 1 : Prog 3 : Goto 9 : Lbl 3 : 
Plot (G-E)/2,(H-F}/2 @ X->E : Y->G : Plot X,Y @ X->F : Y->H : Prog 3 
: Goto 9 : Lbl 4 : Plot (G-E)/2.(H-F)/2 @ Goto 9 
PROG 3 

Range E,F,0,G,H : A->T : Lbl 0 : Prog 0 : Ans->X : Prog 1 : Ans->Y : 
Plot X,Y : Line : T+C->T : T<B=>Goto 0 

REMARQUES : 

Rentrer x ( dans le PROG 0 et y dans le PROG 1, l'inconnue étant T. 

Le menu est décomposé en 3 parties : 

:: 1 , un zoom automatique qui calcule le meilleur range pour l’équa 

tion. 

* 2, un zoom Boîte qui permet de tracer un rectangle qui délimitera 
les nouvelles dimensions de l 'écran. Attention : Le premier point doit être 
le coin supérieur gauche et le second l’inférieur droit sous peine d’avoir 
un écran inverse. 

i: 3, un mode point qui permet de se déplacer sur l’écran. Après 
un zoom, l’écran garde ses nouvelles dimensions. 

On demande au début du programme d’introduire le range T. Les valeurs 


L'équation de la suite doit être rentrée dans le PROG 0, l’inconnue étant 
X au lieu de U 
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SOMME DES TERMES 

«SOMM TRM» @ Mcl : «N1=»?->X : «N2=»?->B : Lbl ! : Prog 0 : 
Ans+S->S : lsz X : XoB=>Goto 1 : «S=» @ S 

REMARQUES : 

L’équation de la suite doit être rentrée dans le PROG 0, l’inconnue étant 
X au lieu de U 

n 

Il est possible de visualiser la somme terme après terme en remplaçant « 
Ans+S->S « par « «S=» @ Ans+S->S @ « 

INTEGRATION 

«1NTGRTION» @ «A=»‘.’->A : «B=»?->B : «N=» .’->D : <)->S : (B- A)/ 
(2D)->W : 1 ->J : Lbl 1 : A+(2J- 1 )W->L : A+2J W->R : (L+R)/2->M : L- 
>X : Prog 0 : Ans->L : M->X : Prog 0 : Ans->M : R->X : Prog 0 : Ans->R 
: W ( L+4 M + R )/3+S ->S : lsz J : J<D Goto 1 : «INT=» @ S 

REMARQUES : 

L’équation de la suite doit être rentrée dans le PROG 0, F inconnue étant X 

PRODUIT SCALAIRE 

«PROD SCAL» @ «XU=»?->A : «YU=»?->B : «XV=»?->C : «YV=»7- 
>D : «U.V=» @ AC+BD->P 
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PROGRAMMES GRAPHIQUES CASIO 7000 à 8800 


par Jocelyn GIRAUD 


PROGRAMME DE RESOLUTION DE 
PIVOT DE GAUSS 

Ce programme permet de résoudre des systèmes 
linéaires d équations à plusieurs inconnues par 
la méthode dite du pivot de GAUSS. 

En plus de donner les résultats, ce programme 
donne toutes les étapes intermédiaires qui 
conduisent à celles-ci (ces étapes sont 
généralement exigibles pour des lycéens iors de 
la résolution de tels systèmes). 

‘GAUSS 
?->A 
0->B 
Lbl 0 
?->E(B) 

Isz B 

B<A 2 +A=>Goto 0 
0->B~D 
z A 

Lbl i 
B->D 

Lbl 2 

Isz D 

B+1->C 
Lbl 3 

E[AB+B |E[ AD+Cj-E 
[ A B +C ] E [ A D+B | ->E 
AD+C] < 

Isz C 

C<A=>Goto 3 


suffisamment de mémoire pour autant que je sois 
sûr qu il fonctionne (je ne Fai jamais testé sur 
une telle machine). 

EXEMPLE D’UTILISATION 
Soit le système suivant à résoudre. 

2x-3v+z=l 6 

■y" 

-7x+5y+9z=-f 3 
5x+4y-8z=-3 

il faut saisir 

3(EXE) 

car, en ellet, il y a 3 inconnues dans ce système 
Saisir ensuite un par un les coefficients comme 
ils sc lisent, de gauche à droite et.de faut en bas. 
Soit sur notre exemple ; 

2(EXE) -3(EXE) K EXE) I6(EXE) -7(EXE) 
5(EXE) 9(EXE) -13(EXE) 

5(EXE) 4(EXE) -8(EXE) -3(EXE) 

NE PAS OUBLIER DE METTRE UN ZERO 
LORSQU’IL N’Y A PAS DE VARIABLE 
Ensuite une série de nombres étranges 
apparaissent à l’écran séparés par des lignes 
Dans notre exemple vous obtiendrez ceci : 

-Il 

25 

86 


23 

21 

-86 


<0 


-» 


D<A-2=>Goto 2 


-344 

-1032 


V— - ! 

x=5 

Les résultats sont donnés dans l’ordre inverse, 
d abord z puis y puis x, mais cet ordre est en 
tait 1 ordre habituel dans lesquels on trouve les 
variables lors de la résolution d’un pivot de 
GAUSS. 

JEU DE SAUT A SKI 

Ce jeu est un simulateur de saut à ski. 

Le but de ce jeu est d’arriver le plus près possible 
du mur qui sc trouve en face du tremplin sans 
s’écraser dessus. 

A chaque partie le joueur a droit à 3 essais. A 
chaque essai la hauteur de la fin du tremplin est 
di llérente. Cette hauteur est précisée et elle est 
en mètre. Chaque pixel représente un mètre et 
les graduations sont tous les dix mètres. 

Le skieur part au niveau du sapin et peut 
accélérer sa vitesse, et donc sauter plus loin, en 
poussant sur ses bâtons. Le programme demande 
une valeur de la poussé des bâtons en newton 
(mettre de préférence une valeur de l’ordre de 
1000N pour commencer à voir une modification 
significative de la trajectoire). Rien n’empèche 
cette force d’être négative (freinage). 

La trajectoire est calculée en considérant des 
forces de frottements sur la partie tremplin et en 
les négligeant sur la partie saut. 

Enfin une note est attribuée au skieur en fonction 
de la distance entre le mur et l’endroit où il se 
pose (s’il se pose !!!) 

PROGRAMME 

‘SUPERSKI 


« » 

Isz B 

B<A-2=> Goto I 
«RESULTAT» 
A-2->B~C 
Goto 5 
Lbl 4 

E[AB+A-1 |-E| AB+C 
|E| A 2 -A+C]->E[ AB+ 
A-l] 

Dsz C 

B=C=>Goto 4 
Lbl 5 

E( AB+A-I |@E[AB+C 
J->E[A 2 -A+B]< 
A-2->C 
B-l ->B 

B A I =>Goto 4 


TAILLE DU PROGRAMME 295 PAS AVEC 
LE TITRE 

Note à l’utilisateur : 

Pour les possesseurs de calculatrices 7700, 
7800, 8700, 8800, le programme peut être utilisé 
tel quel. 

Pour les autres (7000, 7500, 8000, 8500) vous 
devez changer le signe de fraction par le signe 
diviser normal : 


Un résultat non entier s’affichera avec toutes les 
décimales au lieu d'être sous forme fractionnaire. 


Pour les possesseurs d’une 6800, ils peuvent 
toujours essayer ce programme s’ils ont 


RESULTAT 

3 

-I 

5 

Explication : 

Chaque série de nombres entre les lignes 
correspond à une équation. 

Chaque ligne sépare deux équations d’un même 
système. 

Chaque double ligne correspond à la séparation 
de deux systèmes. 

Ne sont réécrites que les équations qui sont 
modifiées. 

La résolution du système est donc : 

2x-3y+z= 1 6 
-7x+5y+9z=- ! 3 

■ j " 

5x+4y-8z=-3 
2x-3v+z= 1 6 

■mf 

- 1 1 y+25z=86 
23v-21z=-86 

mf 


()->G 

0->O~Q 

«MASSE SKIEUR» ?-> 
M 

Lbl 0 

Range 0.94, 10.0. 
62,10.50.94.2 
«ESSAI N « 

Isz G 
G < 

Int 1 5Ran#+20->H 

40-H->E 

E/8e3->A 

-3E/320->B 

3E/20->C 

-] 1 E/l6+40->D 

Graph Y=AXxy3+BX 

2 +CX+D,[0.50] 

Plot 50, H 
Plot 50,0 
Line 


La première équation étant inchangée (princi 
du pivot de GAUSS), le programme ne l’a p 
réécrite. De même le coefficient de x de chacu 


Plot 10.48 
Plot 10,41 

Line 


des deux dernières équations étant nul. il n’est 
pas indiqué non plus pour une meilleure facilité 
de lecture. 

2x-3y+z= ! 6 
- 1 1 y+25z-86 
344z~ I 032 

Enfin la solution est alors : 

2=3 


Plot 6.42 
Plot 9.43 
Line 

Plot 1 1 ,43 
Plot 14,42 
Line 

Plot 7.44 
Plot 8,45 
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Plot 12,4? 


Line 

Plot 13,44 
Plot 9,47 
Plot 11.47 
Plot 90,0 
Plot 90.50 
I .i rtc 

Plot 94,50 
Line 


PROGRAMMES GRAPHIQUES CASIO 7000 A 8800 


EXEMPLE 

NOMBRE 3 

SCORE 2 

TRIPLETS I 

0.000000000 
0.000000000 
0.000000000 
0.940000000 
1.972000034 
0.416000072 


Int A->A 
A<0=>Goto ! 
A>9=>Goto 1 
6->r 

Lbl 2 

lOFrac (. I (Int ( 

M | -r] x A A ()=>Goto 
3 

Dsz r:Goto 2 
Lbl 3 
Isz r 


Plot - 1 ,0< 
«HAUTEUR» 

H < 

«POUSSEE DES» 
«BATONS»?->l 
32+.8 i/(9.8 I M)+( 
784.4-1 9.62H+(2I 
)/M)/( 19.62 ( 1+C 2 
>F 

e 2 /4(H-F->j 

c-100J->K 

F+K 2 /4J->L 

Graph Y=JX 2 +KX+L 

,|50,941< 

(K+S(K 2 -4JL))/-2 

J->N 

N>=90=>Goto 8 
«NOTE» 


. 1 Int (5(N-50->N[ 

G 1< 

Goto 9 
Lbl 8 

«SC RAS H !!!!» 
Lbl 9 

OA3=>Golo 0 


Taille du programme 507 pas avec te litre. J'ai 
utilise le symbole xy dans ce programme pour 
symboliser le caractère «x exposant y» qui se 
compose d'un x et d’un y plus petit au dessus. 


NUMERISS 

Ce jeu n'a rien à voir avec le service numéris de 
iranee télécom. U s’agit d'une sorte de tetris 
numérique d'où le nom numeriss, le deuxième s 
étant là pour ne pas avoir de procès avec france 
télécom 

Le but de ce jeu est d'éliminer les nombres qui 
tombent dans un tableau. Le jeu se joue avec un 
tableau de 6 colonnes sur 9 lignes. Des chiffres 
tombent et I on doit les amener sur les bonnes 
colonnes de façon à éliminer des groupes de 3 
chiffres. Pour cela il faut que se trouvent alignes 
3 chiffres horizontalement et côte à côte (zéro 
exclus) dont la somme face 10. Si tel est le cas 
ces 3 chiffres s’éliminent et les chiffres au dessus 
descendent d'une case. 

Fonctionnement : Le programme donne tout 
d'abord un chiffre (celui qui va tomber) puis le 
score puis le nombre de triplets déjà éliminés. 
Enfin il affiche la gril le de jeu et demande dans 
quelles colonnes vous voulez voir ce chiffre 
tomber (entre 1 et 9). Sur la gauche de chaque 
ligne est inscrit le nombre de triplets de chiffres 
disparus sur chaque ligne. 


Dans cet exemple il n’y a eu pour l’instant qu’un 
seul triplet de disparu. Cela s'est produit sur la 
deuxième ligne (le 1 de 1.972000034). (les zéros 
représentent les cases vides. ) 

Ici on remarque tout de suite que 1 +6+3= 1 0 donc 
que l’on peut mettre le 3 qui va tomber dans la 
4èmc colonne en partant des points. On appuie 
donc sur (4) (EXE) et l’affichage suivant est 
donc : 

NOMBRE 5 

SCORE 3 

TRIPLETS 2 

0.000000000 
0.000000000 
0.000000000 
0.900000000 
1 .940000034 
1 .472000072 

‘> 

Au début du jeu le programme propose la phrase 
suivante : 


M|-r|+B/„ A >\1| iq 
9->0 

Lbl 4 

1 OFrac (.1 (int ( 
M|-i'jx l( .e->L[9j 
Dsz 0:Goto 4 
A->0 
Lbl 5 

uei+Lie+i i+L[B+ 
2]=D=>Goto 6 
DszO 

0* A 3=>GOTO 5 
GOTO 0 
Lb! 6 

L 1 0 1 LJ 0+ 1 ] L 1 0+2= 
Q=>Goto 0 
Isz Mf-r] 

Mf -r]>= 1 0=>M Fr F 1 
0->M[-r] 

Isz W 
V +r->V 


=OLD GAME? 


Lbl 8 


Si l’on a jamais joué à numeriss ou si Fon a 
modifie le contenu des variables entre temps on 
répond if importe quoi sinon la partie continuera 
là où vous l'aviez arrêté si vous répondez (ce 
qui permet d'arrêter une partie en cours et de la 
continuer plus lard). 

Evidemment le jeu s’arrête lorsque les chiffres 
s'empilent jusque sur la dernière ligne (celle du 
haut), 

PROGRAMME; 

'NUMERISS 


«n=OLD G AME»?->A 
A=fl=>Goto 0 


M|-rMIOOL|0|+l 
QL[0+I |+L|0+21)X 
|O -(0+2)->M|-r] 

Isz r 
9 >C 
Lbl 7 

Frac ( . 1 (Int ( 
M[-r]X |() C->L[C] 
Dsz C:Goto 7 
(1OOL[G]+1OL[0+1 
|+L[0+21)X, n -(0+2 
->E 

E=0=>Goto 0 


Md 
I0->D 
Norm 
Lbl 0 

G * 0=>Goto 9 
«NOMBRE:» 

Int 9Ran#+l->B< 
«SCORE;» 

V< 

«TRIPLETS:» 

W< 

Fix 9 
6 >r 

Lbl I 
M[-r|< 

Dsz r:Goto 1 


Norm 

?->A 

6->r 



E+Nl-r]->N|-r 
r^ 6=>Goto 8 
Goto 0 
Lbl 9 
«FIN» 
«SCORE :» 

V < 

«LIGNES :» 
W< 


Taille du programme 54! pas avec le titre 


Pour les calculatrices relativement anciennes, 
7500, 8000. 8500, etc .... qui ne possèdent pas 
les caractères r et 0 il faut modifier le Listing qui 
aura une taille plus longue en remplaçant r et B 
par respectivement 7 .\ 11 et Z|21 en n'oubliant 
pas bien sûr d'étendre les mémoires par une 
instruction du type Defm 2. 
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JEUX POUR CASIO GRAPHIQUE 

par Mickaël Saillot 


\oici trois des meilleurs freeware disponibles actuellement sur CASIO. Vous remarquerez que les listings 

sont donnés sous forme graphique afin d'éviter les erreurs. Les logiciels sont tels qu 'ils apparaîront sur votre CASIO ', 

facilitant ainsi la saisie. Les programmes ont été saisis sur HP48 et ensuite transformés en GROS pour être récupérés 
au format TIFF. 



Comment utiliser les programmes suivants ? 

Il suffit de se mettre dans ie MODE 2 el de saisir les programmes 
dans la zone de programmation voulue. Vous devez respecter la 
zone indiquée pour les sous programmes. Soyez attentif, en effet 
une seule erreur de votre part, pendant la saisie peut compromettre 
le bon fonctionnement du programme. Pour ceux qui ne connaissent 
pas leur calculatrice, je vous signale que les commandes Abs, Frac. 
Int, Kan#, Lbl, Goto, Plot, Line, double flèche, point d interrogation 
.... sont intégrées dans la machine. Vous pouvez vous reporter au 
manuel pour savoir dans quel menu les trouver. Le petit E, c’est la 
touche EX P ou * 1 Ox. Le petit 1 0 c’est la touche 1 Ox. Pour terminer 
ne confondez pas le chiffre zéro et la lettre O (le chiffre zéro est 



A ) Jeu du démineur. 

Il s’agit d’un jeu de réflexion, qui se joue seul. Son but consiste à 
ne pas sélectionner les cases qui sont minées. Pour cela la 
calculatrice vous renseigne, en vous donnant le nombre de mines 
présentes autour de la case sélectionnée. Si la case se noircit, cela 
signifie qu'il n'y a aucune mine autour. Pour sélectionner une case 
1 1 suflit de déplacer le curseur graphique dans le bas à gauche («aux 
croisements») et de valider par EXE. donnez un chiffre (0<x<9) à 
la question «NB DE MINES *10». plus le chiffre est grand, plus 
le nombre de mines est important. Copiez le premier programme 
dans une zone voulue, mais le deuxième doit être copié en zone 1 . 
La partie prend tin dés que vous sélectionnez une case minée (la 
calculatrice vous montre ensuite les endroits ou étaient placées les 
mines) où dés que vous arrivez à «déminer» le terrain ! 


Range 1 1 ,63,0:Defm 95: Md: "HB DH MINES xî0"?4fi:i0int flb^ 

304Rîfl=0*104fi!ft4Ü%4M:954K:LM 0: Int MRanlEB:Z[B*0t>Goto 0: Isz Z[B]:Dsz 
fl:Goto 0ï84fl; Lbl 2:Plot R,14:Plot A,62:Line:Plot 8 } B:Plot 80,B:Line 
:fi+6+fi:B+6+B:fi^Goto 2: 44-^X: 33-4V: Lbl 6:PIot X,Y^+U:Y+V:<U+12V-I76)*6+ 
fEB:fK07>Güt0 6:fi)95*Goto 6: Frac A*0M3oto 6:ZtR=f 0#Goto 6:Z[fl=l*Gnto 3:04 
ODîLbl i! Isz C: C=9#Goto ÿ: C=lHK+U:C=l*V-6+V: C^2#C^:3#U+6»Ü:C^4#Ci5-V+é 
4V: C^C^7HJ-6+U: C-8î>V-6+V: U> ?4#Goto 1 : U<8#Goto l:V>5WGoto l: V<14»Goto 

1 s (U+i 2V- 176 ) 4é4fl i D+ZEfl-M) : C^T^Got o ÜLbl 8:D>8M0Frac (Dt 10*D:D=0>313131 
3131 :D=1^4 12040414: D=2M402140814:D=3^1402I40214:D=4^1010140202:D=5il403 
146214: 0=6^1408141014: 0=7*1402040404: D=8*14 10 141014: Rns4k: U+frH): Prog 1 : 1 
0-4ZCB1 : Dsz îl:M=L*Goto 5:Qoto 6: Lbl 3 î 56-6 1 nt ((95H0^12+V:6fH2V+l76*U:Z 
[K*l*Goto 4:Plot U, VïPlot U+6,V+6: Line: Plot u,Y:Plot I J+6, V : Line: Lbl 4:K- 
jl4K:K^0»GQtQ 3:Lfal 4=Grarh Y=0j ,, GfiME QVER'jGotû 4: Lbl 5: "BIEN -JOUE" 


84E:lbl l:16+F:«2Frac (Int ( If - 1 9 ) 4 m2^G : G=0*Got o 4:Lbl 2:G<F#Goto 3ÎPIot 

1+U+Un (164F)4ln 2, l+E+2+V:G~F+G:Lbl 3:F-r2+FtF^l*Goto 2: Lbl 4 : E-2->E : 
cto 1 


B ) Jeu du solitaire. 

Il s’agit d’un jeu de réflexion, qui se joue seul. Son but consiste à 
éliminer les pions du damier (sauf le dernier) à la manière du jeu 
de «dada» pour les supprimer. Il suffit de sélectionner tout d’abord 
le pion qui va sauter un autre pion (utilisez le curseur graphique, 
déplacez-le sur le point noir du milieu du pion et validez par EXE.) 
et de sélectionner un emplacement vide reconnaissable par un seul 
point noir (utilisez te curseur graphique, déplacez-le sur le point 
noir et validez avec la touche EXE) Vous pouvez sauter les pions 
verticalement ou horizontalement. La partie prend fin dés qu’il ne 
reste plus qu’un pion. Ce jeu peut sembler simple à première vue, 
niais au fil du déroulement de la partie vous vous apercevrez qu’il 
est difficile à terminer. Le jeu ne détermine pas la fin de la partie 

automatiquement, c’est à vous d’arrêter la calculatrice avec la 
touche ON. 


Defm 46:Mcl:l4Z[2W[46]:Dsz Zt24]?Lbl 3: 3^ZC5 ]^ZC33 : 3^Z[ 12]^ZE 13 ] : 3-^ZC3 
5^Z[36]:3»Z[40]"Zt433:Lbl 0:Range 1 ,95j0j 1,63,0: HCîLbl i : Isz C : C=47*G 



<C'+7E-tî2)-6 + F:Frac C*8$>Goto 2: Frac F*9^Gotc 2:C<2tGoto 2:F<2£Goto 2: CM 
*C<9*Goto 2:F>4*F<9*Goto 2*Càl»C«»Gato 2:FM2*Fil3*Goto 2: 035^36^ 
cto 2:F^35rF^36$Goto 2:Q40*CiÉ43*Goto 2:Fi40*F^43*Güto 2: CM 6 4 Goto 2: F>4 
étGoto 2:C=F*Golo 2:Z[F?0^Goto 2:R=D£flbs (E-B*12tGoto 2:B=E£flbs (D-fl*12* 
Goto 2:fl*D*-B*E*Goto 2:E-B=124ZCC+?=04Goto 2:E-B=12Xî*Z[C+7]:B-E=12*ZEC-7 
=0?Goto 2 : B~E=1 2*>0»ZE C-7] : D-ft=i 2 t»ZCC+ 1 =0*>Coto 2:D-ft=12£0*Z[C+t]:fl-D=t£*>Z 
[C-l=0»Goto 2ifl-O=12^ZEC-n:l^ZEF]:0»Z[C]:Goto 3 


C) Le îeu Memory. 

C’est un jeu qui demande beaucoup de mémoire. En effet, son but 
est de retrouver deux figures identiques en les retournant. Si les 
deux figures retournées ne sont pas identiques, alors le programme 
les cache à nouveau, sinon, elles restent visibles. Pour jouer, il 
suffit de sélectionner une case à l’aide du curseur graphique (en 
bas à gauche, validez ensuite avec EXE) et dans sélectionner une 
autre de la même manière. Le jeu prend fin des que vous aurez 
rendu visible chaque paire. Mettre le premier programme dans 
une zone quelconque de programmation mais mettez le deuxième 
dans la zone 7. Répondez l à la question «NEW GAME» si vous 
voulez faire une nouvelle partie, sinon répondez 0. 


Range 1,95,8,1, 63» 0:24+R:9+B:"NEN GfiME"MQ:Dsz Q:Goto 9:Defm 35:0+fhZE35 
]: Lbl 0:0»R:Lbl iï Int 36Ran#->C:ZEC*0*Goto lîR+ZECMsz fl:R^17*Goto l:lsz 
B: B*2*Goto 0:24-49: 9+B: 0+OD: Lbl 2: A=72*B=49*5-H):D=5*24+R:D=5*9+B: D=5*Go 
to 9 : fl=72f B+8+B : A=72*24 *A : e 4R+ e 2B+ZE C+Z E C ] : I sz C:fi+8+fl:Goto 2:Lbl 9s Plot 
R, 9: Plot R, 57: Line: Plot 24 r B:Plot ?2,B:Line:fl+8+fi:B+8->B:fl^72*Goto 9:0*R 
W: Lbl 4: E2Frac (Int (ZED]H4)?E2)+2-m:2+i:4Frac (Int (Z[D]4 e2)t E 4)-e 2(R- 
2)->B:E2Frac (ZEDHe 2*C: Int (Z[D]te6+U:U=1*Isz V:ü=14Prog 7:I*z D:D^35*Go 
to 4: * l Il A36*Goto 8:2+S:LbI 5:Plot 48,33iE2X+Y*fi:0*l:Lbl 3: Int <2EI 1-4 e 2=R»I 
^FESblsz I : I ^35#Goto 3:E2Frac (Int (Z[F[$]3-M)4E2}+2-»A:2+E4Frac (Int ( 
ZEFES]]T E 2)T £ 4)-E2<R-2MB:E2Frac (2tF[SmE2*E:S=2*E+OD:S=l*E+C:Rnï9 7: 
Dsz S: Goto 5:C*D*Gotc 6 îe 6+Z[G+ZEG]: E&+ZEH*Z[H]:35+CM):V+2+V:Gûto 4:Lbl 
é:Graph Y=8:24->fi:9*B:CIs:Goto 9:Lbl 8: "FIN DE PARTIE" 


Frac <C+2+H:«»ûrto 0:CéS#Goto ÜC^Goto 2:Cé7#Goto 3:(X9*Goto 4:C-11^ 
Goto 5:C^13#Goto î:C^i5*Gotü ?:Goto 8:Lbl ©:Plot fl+l,B:Plot R+3,B:Line:P 
lot X,B+4:Plot R+i f Y: Unes Plot R,B+l:Plot fi+4,Y:W=0*Line:Plot X,B+2:Plot 
Y: M=9#L i ne : P I ot fi,B+3:Rlot R+4 , Y: W=8»L ine : Go t o 9:Lbl UPlot fl+4,B+l:p 
lot R,Y:|«l=0*Line:CM2*üne:Plot fi,B+2:Plot fi+4,Y:W=0*Line:C=12*Line:Plot 
X, B+3: Plot A,Y:W=0*tine:C^2*Lirœ:CM2*Cél3*Goto 9:PIot A,B:Rlot R+4,B: 
Line: Plot X,B+4=Piot fl, Y: Line: Goto 9:Lbl 2:Plot fl+2,B:Plot' R+4,B+2:Line: 
Plot fl+2,B+4: LineiPlot fi, B+2: Line: Plot R+2,BtLine:W*0*Goto 9:Plot X,B+1: 
Plot X,B+3:Line:Plot fi+i,B+2:Ptot R+3,Y:Goto 9:Lbl 3:Plot R+l,B+l:Piot R 
+3,Y:Line:Plot X,B+2:Plot fl+1 , Y: W=0^LineîPlot X,8+3:Plot R+3,Y:Line:Goto 
9: Lbl 4:Plot R, B: Plot fî+4 T 8: LineïRIot X,B+l:Plot fl, Y: W=0#Line:Plot R,B+ 
2: Plot fl+4 , Y : W=0#L ine : P 1 ot R+t,B+3:Plot fl+3 ? Y ï W=0»L i ne : P 1 ot fi+2,B+4:Goto 
9: Lbl 5:Plot fl, Bî Plot R+4, Y: LineïPlot R+2,B+l:Plot fi+l,B+2:PIot fl+3,Y:W 
=0»Line:PIot R,B^3:Plot fl+4, Y= W=9#Line:Plot X,BH:Piot fl, Y: W=9#Line: Goto 
9: Lbl 7: Plot fl,B:Plot R+4,B: Line: Plot X,B+2: Line: Plot fl+3, Ys Plot X,B+4: 
Line: Plot R+l,Y:Line:Plot X t B+2:Line:Plot R,Y:Plot H,B:line:W*0fGoto 9:R 
lot ft+l,B+l:Plot fl+3, YJLineîPlot R+2,B+2:Plot X, B+3î Goto 9:Lbl 8:Piot fi, 
B: Plot fl+4, Y: Line: Plot X,B+4: Line: Plot fl+2, Y: LineiPlot X,B+2:Line: Plot fi 
îYîLine:Plot R,B:Line:W^Goto 9:PIot fl+I,B+üPlot fi+3,Y:Line:Plot X,B+3 
: Line: Lbl 9 


r 


"\ 


Si vous êtes intéressés par des programmes faciles à saisir, je vous 
propose une sélection de 20 jeux présentés sous forme de dossier 
en mode graphique (pour les listings). Chaque jeu est accompagné 
d’une «notice d'emploi». J'ai sélectionné les meilleurs jeux 
actuellement disponibles. H suffît de m’envoyer 100 F RS pour 
recevoir par la poste un dossier. Le prix comprend les frais PTT, 
les frais d’impression et surtout le temps nécessaire à la réalisation 
graphique. Mon adresse: 

SAILLOT Mickaël 

BOURVILLE - 76740 FONTAINE LE DUN 


V. 


Tel: 35-97-47-92 (après 20 Heures). 
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JEU POUR CASIO GRAPHIQUE 

par Henri DOMMEUER 



Mode d’emploi du Master Mind Graphique 

Au lancement du programme, il faut indiquer le niveau de jeu voulu. 

Niveau 1 . la solution comporte 4 formes géométriques obligatoirement différentes. 

Niveau 1 . La solution comporte 4 formes géométriques dont plusieurs peuvent être identiques. 

Nlveau 3 : voir Nlveau 2 a la différence que le choix des éléments s'effectuera celle fois ci sur 7 éléments au lieu de 6; les 6 
toi mes géométriques initiales plus un vide obtenu en pressant la touche numérique 7. 

Réponse du calculateur : 

Pour indiquer une bonne forme géométrique placée à la bonne place le calculateur affichera une étoile ‘ . 

Pour indiquer une bonne forme géométrique placée à un mauvais emplacement, le calculateur affichera un point * ' 

S. il n’y a pas de bonne forme géométrique le calculateur n’affiche rien. Le calculateur donne une réponse à eauchede chaque liane 
d essai. Des la réponse trouvée, (4 étoiles sont alors affichées à gauche de la solution trouvée) le calculateur affichera ‘ GAGNE \ 

Si au bout des 6 essais la solution n’est toujours pas trouvée, le calculateur affichera alors ‘ PERDU ‘ et donnera la solution en affichant 
un chiffre correspondant a la forme géométrique après chaque appui sur ' EXE \ Pour revoir ses erreurs appuyer sur ‘ GT \ 

rt JTk V T H ■ - m é~ 1 J 1 ¥ \ .«J ¥¥ A * TV 1 fl ffTT: W T ’W"'* '■ m » 


copyright 1994 Henri DOMMELIER 

Programme Principal : 

Prog 0 

Defm 8 : mcl 
« master mind 

niv. 1 aucune même forme -> 1 
niv.2 même forme possible -> 2 
niv.3 même forme + vide possible -> 3 
vide -> touche 7"? ->Z 
Range -3, 4, 0,0, 6,0 
Lbl 0 : isz. A 

Plot -3, A : Plot 4, A : Line 
Plot A,0 : Plot A, 6 : Line 


Z| A 1=A[L]=> 1 ->0[ W] 

Oj W ]=1 =>Goto 3 
L=<3=>Goto5 

Lbl3 : O[Wl=l=>0->A[L] : ()->L 
Isz W : Isz A 
W=<4=>Goto5 : Isz N 
-.542->U : 0->T : 0->A 
L>K : -1->B~E : Lbl 7 
Int(5 Ran#)->W 

W^0=>W=<4=>W^B=>WZ^C=>W^D-> 

W->A[KJ 

W^A| K )=>Goto 7 


Plot I.N-0.4 : Line 
Plot M,N-.4 : Line 
Plot M,N Line 
Goto 5 : Lbl 3 
Plot MJ : Line 
Plot M-.44J ; Line 
Plot M-.44.N : Line 
Plot M.N : Line 
Goto 5 : Lb! 4 
Plot MJ : Une 
Plot I.N-.4: Line 
Plot M.N : Line 
Goto 5 : Lbl 8 


A3^6=>Goto 0 : Prog 2 

-2.925->G : Plot -3,5.5 : Plot G, 5.6 

Plot G, 5. 3 : Line 

Plot G, .6 : Plot -3, .6 

Plot -3,. 25 : Line 

Plot G, .25 ; Plot G, .4 : Line 

-1.8->M : 5.9->N : 1->H 

Lbl 2 : Prog 1 : Isz H : Dsz N 

Hï^7=>Goto 2 : Graph= 1 I>isp 

-.7]->G: .87->N 
Lbl 4 : N>6=>Prog 2 
1 ->W : Lbl 1 : Z[ W |->A| W j : isz W 
W=<4=>Goto 1 

.946->M : 1 ->L : 1 ->W : 0->P~S 
Isz G : 5->A : G->V: Lbl 8 
«FORME GEO.»?->Z[ A] : Z(A]->H 
H=<0=>Goto 8 : H>Z=>Goto 8 

« « : « « : « « : « TEST EN COURS» : « « : « « 

: « « 

Isz A : Prog IDisp 
Isz M : A=<8=>Goto 8 
5->A : Ebl 6 : 0->O[W] 
Z[A]=A[LJ=>2->0[W | 

O[WJ=2->0->A[L] 

0[W]=2=>9->Z(A] 

Izs A : Isz L : Isz W 

A=<8=>Goto 6 
5->A : 0->L : 1 ->W 
Llb 5 
Isz L 


0|A[K]M)=>Goto9 

8->H : Prog I : Isz A 

Lbl 9 : Isz K : K=<4=>Goto 7 

Graph- I Disp 

T9^4=>Goto 4 

«GAGNE» Disp 
Sous Programmes : 

P r og 1 

H=7=>Goto 7 
M-.89->I ; N-.77->J 
Plot M.N 
H~l=>Goto I 
H=2=>Got.o2 
H=3=>Goto 3 
H=4=>Goto 4 
H=6=>Goto 6 
H=8=>Goto 8 
Plot I,N : Line 
Plot MJ : Line 
Plot M.N : Line 
Goto 5 : Lbl I 
Plot l,N : Line 
Plot M-.45,J : Line 
Plot M.N : Line 
Goto 5 : Lbl 6 
Plot M,J : Line 
Plot M-.9J : Line 
Plot M-.9,N : Line 
Plot M.N : Line 
Goto 5 : Lbl 2 


A=l=>U+.37->U 
A=2=>V+.38->V 
A=3=>U-.37->U 
U-.074->F : 0[W|=2=>Goto 9 
Plot F.V : Goto 5 : Lbl 9 
Isz T : Plot U,V 
Plot F.V+.l : Plot U-.15.V 
Plot F.V -.09 : Lbl 7 
Graph= I : Lbl 5 
Prog 2 

6->F : N>6=>Goto 5 : Lb! 1 
Isz W : Isz G 
0=37F : Lbl 2 
Int 10 R an# ->Z[W] 

Z[W j=0=>Goto 2 
Z[W|>F=>Goto 2 
G=<3=>Goto ! 

0>=2=>Goto 0 
1->I : 0->W : Lbl 4 
Isz 1 : 1->J : Isz W : Lbl 3 
Z| W |=Z| J |=>Goto 2 
Isz J : J=<4=>Goto 3 
W=<3=>Goto 4 
Goto 0 : Lbl 5 
«PERDU 

LA SOLUTION EST;» 

I ->W : Lbl 6 ; Z[W] Disp 
Isz w : W=<4=>Goto 6 
Graph= 1 Disp 
Prog 0 ; Ebl 0 


Plot !,N : Line 
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POCHE CQMPUÎE RS 


VOYAGE AU CENTRE DE LA CASIO FX 850/880P 

par A. BOURBIER - C.BULLA - C.MONN1ER - J. PETIT 


Nous commençons là un voyage au centre de la Casio FX850/880 qui va durer quelques numéros . Nous 
allons détailler chaque élément interne de la machine. Dans un premier temps, intéressons-nous à la partie " Hard ” et 
plus particulièrement à son unité centrale ou C.P. U en anglais . 



1.' i mite centrale : le microcontrôleur HD 62002: 
a) présentation : 

Le 62002 cm un microcontrôleur 8 bits fabriqué par NEC. Il dispose d'un bus 
d'adresses de 1 9 bits lui permettant d'adresser jusqu'à 5 1 2 K de mémoire. Le circuit 
intégré se présente sous la forme d’une puce carrée dotée de 100 pattes réalisé en 
technologie CMS VSLI. Spécialement développé par CASIO, outre les fonctions 
classiques, il assure la gestion de l’écran et du clavier par l'intermédiaire de ses 
multiples ports d’entrée /sortie. De part ce grand nombre de ports (6 au total), le 
62002 sc distingue dos microcontrôleurs classiques aussi par le fait qu'il n'est pas 
muni d’une ram interne dans laquelle il stockerait ses pointeurs. En effet, il utilise 
pour cette tâche la ram extérieure, et dispose à la place de celle-ci d’une rom interne 
de taille conséquente (20Ko) assurant tout le système d’exploitation. 

Brochage du 62002 : 


Pin 

signal 

fonction 

in/out 

1 

GND 

+5v 


2 

TEST 

signai de checking automatique actif =0 

in 

3-10 

KB8 

signaux provenant du clavier 

in 

11-18 

KA8 

masses pour le clavier 

in/out 

19 

SW 

allumage du 850: Ovolt - off 5v = on 


20 

VCCT 

masse 


21 

DB4 

bus de données bit 4 

in/out 

22 

DBS 

bit 5 


23 

DB3 

bit 3 


24 

DB6 

bit 6 


25 

DB2 

bit 2 


26 

DB7 

bit 7 


27 

DB1 

bit 1 


28 

DB8 

bits 


29-32 

A0-A2 

bus d'adresses 

out 

33 

OE 

autorisation de lecture actif = 0 

out 

34-43 

A7-A16 

bus d'adresses 

out 

44 

WE 

autorisation d'écriture 

out 

45-49 

A12-A18 

bus d'adresses 

out 

50 

GNDT 

VCC +5v 


51 

CS1 

signal de sélection de la ram de base 

out 

52 

CS2 

de l’extension de ram 

out 

53 

CS3 

de la Fa-6 

out 

54 

CS4 

de l'extension ram 

out 

55 

CSS 

de la roml 

out 

56 

CS6 

de la rom2 

out 

57 

VI 

signaux de commande pour le LCD 

tn 

58 

V6 

*i 11 n u n n 

in 

59 

V5 

■1 U Dit UN 

in 

60-67 

R0-R7 

masses pour le LCD 

out 

68-71 

M-CL2B 

informations pour le LCD 

out 

72-79 

R0-R15 

masses pour le LCD 

out 

80 

CL1 

signal pilote pour le LCD 

out 

81 

PB8 

signal DSR pour la RS232C 

in 

82 

PB7 

signal CD pour la RS232C 

in 

83 

PB6 

signa! CTS pour la RS232C 

ïn 

84 

PB5 

non utilisé 


85 

PB4 

signal BUSY venant de l'imprimante 

in 

86-87 

PQ1,IC 

non utilisé 


88 

RXD 

entrée de données venant de la RS232C 

in 

89 

PA4 

signal d’initialisation de l'imprimante 

out 

90 

PA3 

signal STROBE 

out 

91 

PA2 

signal DTR 

out 

92 

PA1 

signal RTS pour RS232C 

out 

93 

TXD 

sortie de données pour la RS232C 

out 

94-95 

BZ1-2 

signaux pour le buzzer 

out 

96 

VCC 

masse générale 


97 

RSTI 

signal de RESET venant de la touche P 

in/out 

98 

RST0 

signal de RESET général 

out 

99-100 

OSCO-1 

signaux d'horloge 

in/out 


bt L’unité centrale C.P.L. (Central Processing Unit) : 

Le C.P. U. est le coeur du 62002, il assure la gestion des bus d'adresse cl de don- 
nées, I échange des informations en RAM, etc... 

Pour son bon fonctionnement, il a besoin des signaux suivants : 


/ ) les signaux d'entrée : 

- l'alimentation. 

Le 62002 est alimenté sous 5V via les bornes I (+5v) et 96 (0V) 

La mise en route est assurée par le signal SW (19) : au niveau bas il ordonne 
l'allumage de l’ordinateur. 

Quant au commutateur POWER de la face avant sur la position OFF, il impose 5v 
à la borne 19. Le basculement sur ON court-circuite SW à la masse et provoque 
donc l'allumage de la FX-850P. ce système de mise cri route par le signal SW 
permet la fonction d'extinction automatique au bout de 6 minutes. Cependant le 
non contrôle direct de l'alimentation du 62002 a parfois des conséquences surpre- 
nantes lors d'un blocage de l’U.C. Il peut arriver que le switch POWER n'éteigne 
plus l'écran sur la position OFF. Cela s’explique ainsi : Le CPU est bloqué, mais 
comme on ne coupe pas réellement son alimentation, il reste dans son état actuel. 
Seul un Al ,L RLSh I. coupant toutes les alimentations permet un retour à la nor- 
male. Dans certains cas très particuliers, il faut appuyer avant sur le bouton P qui 
sc trouve au dos de la machine. 

- l'horloge 

Afin d assurer les échanges de données entre RAM, ROM, périphériques et autres, 
le 62002 nécessite un circuit d'horloge. Cette fonction est réalisée par un circuit 
oscillateur construit autour d'un Quartz de 1,228 MH/.. Le signal carré de fré- 
quence 1 ,22 MHz est appliqué au CPU. par les broches 99 et 100. Le choix d une 
fréquence d’horloge de valeur moyenne se justifie par l’emploi de Rams à temps 
d’accès assez long (180ns). moins coûteuses. 

- les resets 

En cas de blocage ou d initialisation demandée, le 62002 requiert une information 
dite de RESET. La FX-850P dispose de deux RESETS. 

*’ la touche P-KEY qui fournit a la broche 97 du C.P.U. une impulsion d amplitude 
5v (RSTI ). Ce signal ordonne alors la mise à 0 des registres, l'arrêt du processus 
en cours (calcul ou programme) et génère l’ordre d’initialisation du circuit d’affi- 
chage (RST0). R ST I n'affecte pas le contenu des Rams, donc des variables, poin- 
teurs et aulres I ichiers qui ne sont pas touchés. De ce fait, ce rest ne peut pas arrêter 
le CPU s’il est bloqué. 

* 1111 second resel, plus puissant, est alors utile. Nommé ALL RESET, il coupe 

I alimentation générale donc le CPU et les RAMS, les pointeurs sont remis à zéro. 

2) les signaux de test : 

Dernier signal d’entrée au CPU. TES I permet l’exécution d’une routine interne de 
test du 62002. Si TEST est àt), le 850P lance la routine de test, la lecture du fichier 
batch. Cependant cette patte du HD62002 est forcée à 1 sur le circuit imprimé. Par 
conséquent, le fichier batch ne contient aucune information et n’occupe qu’un octet. 
Ce choix technologique est regrettable car il interdit tout BOOT sur un programme 
ou une séquence préprogrammée. 

3) les signaux de sortie : 

- le buzzer. 

Le résonateur piezo céramique commandé en Basic avec l’instruction B LEP est 
fixé dans le couvercle de la FX. 11 est relié au circuit imprimé par 2 fils très fins. 
B/. 1 et BZ2 sont ses signaux de commande. BZ2 étant la masse, BZ 1 délivre deux 
signaux carrés de fréquences différentes de 12 KHz et de 15 K Hz. 

- alimentation des transmissions. 

Le CPU délivre les tensions de commande (20 VCCT, 50 GNDT) des signaux 
d interface RS et Centronics. Les interfaces fonctionnant sous logique négative 
V CCT = Ov GNDT = 5v 

Seul VCCT est acheminé jusqu'au connecteur, assurant ainsi le rôle de masse com- 
mune des signaux de sortie. 

- le bus d'adresses. 

Le CPU est doté d'un compteur binaire s'étalant sur 19 bits (A0 à A 18)? Cepen- 
dant, la EX n utilise pour son adressage que les bits A0 à A 1 6, le limitant ainsi à 
64 Ko de mémoire exploitable au maximum. 

- le bus de données. 

II véhicule sur 8 bits les données rentrant et sortant du CPU. Les 8 lignes sont 
dirigés vers la RAM, la ROM et les connecteurs internes ; broches 21 à 28. 

4) les signaux d'écriture-lecture : 

Le CPU, suivant les ordres émis ou reçus, généré les signaux OE (33) et WE (44). 
OE est l’ordre de lecture, actif à l’état bas, appliqué à une RAM. I! permet l'envoi 
sur le bus de données de l'information stockée à l'adresse sélectionnée. 

WH est l'ordre d’écriture. Il inscrit dans la RAM et à l’adresse sélectionnée la don- 
née présente sur le bus de données. 

Ces deux instructions complémentaires s'appliquent aux RAMS, ROMS, et aux 
ports de données. 

SUITE DANS LE PROCHAIN NUMERO... 
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TRACEUR DE COURBE SUR CASIO FX-850P 

par Vincent BESSETTES 

(I)nit sert à initialiser l'écran virtuel et à indiquer les échelles , l'ordinateur indique la mémoire de variable 
necessaire à cet écran. (V)isual passe en mode visualisation de la ou des courbes tracées, vous pouvez déplacer la 
fenêtre de visualisation avec les touches du curseur. (T)race , dessine une courbe de type ( Paramétrée ou (N)ormale. 
Dans ce dernier mode , les ensembles de non définition correspondent à des intervalles sur lesquels le tracé ne doit pas 
être effectué. 



10 C LS: PR INT» (I)nit (V)isual (T)race 
(F)in»;CHR$(9);:PRINT: ANGLE I 

20 A$=INKEY$:IF ASo»l» AND A$<> «T» AND A$<>»V» AND 
A$o»F» THEN 20 

30 IF A$=» V » THEN 280 ELSE IF A$=»T» THEN 140 ELSE IF AS=»F» 
THEN CLS:END 

40 CLEAR:CLS:INPUT «Résolution sur les X=»,XPT:INPUT «Résolu- 
tion sur les Y=»,YPT:XPT=INT(XPT/10)*2:YPT=(YPT/14)*2 
50 CLS:PRINT «Mémoire nécessaire :»;(XPT+ 1 )*(YPT+ i )* 1 1+600 
60 CLS:ERASE B$:DIM BS (YPT.XPT) 

70 1NPUT «Xmin =»,XMIN,»Wmax =»,XMAX,»Ymin 

=»,YMIN,»Ymax=»,YMAX:E=(XMAX-XMIN) 

/(XPT*5+4):F=(YMAX-YMIN)/(YPT*7+6):XO=INT(-XMIN/E/ 

5):YO=lNT(-YMIN/F/7):DECX=XO*5+2:DECY=YO’ t! 7+3 

80 CLS:PRINT «Xmin :»;DECX*E;:PRINT:PRINT «Xmax 

: » ; (X PT*5 +4 - D ECX ) * E 

90 CLS:PR1NT «Ymin :»;DECY*E;:PRINT: PRINT «Ymax 

:»;(YPT*5+4-DECY)*F 

1 00 CLS:PR1NT « Veuillez patientez !»; 

1 10 FOR 1=0 TO XPT:FOR J=0 TO YPT:B$(JJ)=»0000000000":NEXT 
J: IF YO>=0 AND YO<=YPT THEN BS(YO,I)=» 10101 01010” 

1 20 N EXT LIE XO>=0 AND X()<=XPT THEN FOR J=0TO 
YPT::B$(J,XO)=»0000FE0000":NEXT J:IF YO>0 AND YO<=YPT 
THEN B$(YO,XO)=» 1 0 1 0FE 1 0 1 0" 

130BEEP :GOTO 10 

140 C LS : PRINT » (P)aramétrée (N)ormale»;:PRIN T 
150 A$=INKEY$:IF A$o»P» AND A$o»N» THEN 150 
160 IF AS=»P» THEN 520 
170CLS:INPUT «Fonction Y=»,FONCT$ 

180 INPUT «Nbre d’ens de non def ?»,S 

190 ERASE KE,LE:IF S<=0 THEN 210 

200 DIM KE(S),LE(S):FOR 1=1 TO S: INPUT «Borne lnf. 

=»,KE(I),»Borne Sup. =»,LE(I):NEXT 1 

210CLS:PRINT «Veuillez patienter !»; 

220 ON ERROR GOTO 510 



370 PR INT CSR(6);» «;:DEFCHRS(254)=A3$: 

PRINT CSR(2);CHRS(254); 

380 PRINT CSR(7);» <:DEFCHR$(255)=A4S: 

PRINT C S R (3 } ;C H R$( 2 5 5 ) ; 

390 A$=INKEY$:IF A$<»>» THEN 290 

400 PRINT CSR(0):» «;:DEFCHR$(252)=A5S:PRINT 

CSR(4);CHR$(252); 

410 PRINT CSR( 1 );» «;:DEFCHR$(253)=A6$:PRINT 
CSR(5);CHR$(253): 

420 PRINT CSR(2);» «;:DEFCHR$(254)=A7$:PRINT 
CSR(6);CHR$(254); 

430 PRINT CSR(3);» «;:DEFCHR$(255)=A8S:PRINT 
CSR(7);CHRS(255); 

440 AS=INKEY$:1F ASo»» THEN 290 

450 GOTO 350 

460 IF S<=0 THEN 490 

470 FOR MB=1 TO S:1F KE(MB)<=X THEN IF <=LE(MB) THEN 
Y=1 E+08: RETURN 
480 N EXT MB 


230 FOR 1=0 TO XPT*5+4:X=(I-DECX)*E:GOSUB 
460:Y=ROUND(Y/F+DECY,-1 ) 

240 N=INT(Y/7):IF N<0 OR N>YPT THEN 270 

250 NJ=INT(I/5):NK=2*(I-NJ*5):AB=VAL(«&H»+MIDS 

(B$(N,NJ),NK+1,2)):AB=2 A (Y-N*7+ 1 ) OR AB 

260 B$(N,NJ)=LEFT$(B$(N,NJ),NK)+R1GHT$(HEX$(AB),2)+ 

RIGHT$(B$(N,NJ),8-NK) 

270 N EXT I:BEEP 0:GOTO 10 
280 CLS:M=YPT/2:L=XPT/2-3:PRlNT 

CSR{ 8);C HR$( 1 35);»* * ^TRACEUR ***»;: LOC ATE 0 , 1 : PR INT 
CHR${ 1 35);CHR$( 1 35);CHR$( 135);CHR$(135);CHR$(135); 

CHR$( 135) ;CHR$( 1 35);CHR$(135);CHR$(l35);:A$=»»:LOCATEO t O 
290 IF A$=CHR$(28) AN D L<XFl -7 THEN L=L+ 1 
300 IF A$=CHR$(29) AND L>0 THEN L=L- ! 

3 1 0 IF A$=CHR$(3 1 ) AND M>0 THEN M=M- 1 
320 IF A$=CHR$(30) AND M<YPT THEN M=M+I 
330 IF A$=CHR$(13) THEN 10 

340 A 1 $=B$(M,L):A2$=B$(M,L+1):A3S=B$(M,L+2):A4$=B$(M,L+ 
3):A5$=B$(M,L+4):A6$=B$(M,L+5):A7$=B$(M,L+6):A8$=B$ 

(M.I .+7 ) 

350 PRINT CSR(4);» «;:DEFCHR$(252)=A1$: 

PRINT CSR(0);CHR$(252); 

360 PRINT CSR(5);» «;:DEFCHR$(253)=A2$: 

PRINT CSR( 1 );CHR$(253); 


490 y=VALF(FONCr$) 

500 RETI J R N 

510 Y = 1 E+08: R ES U M E N EXT 

520 CLS: PRINT «INTERVALLE :»;:PRINT:INPUT «Tmin =»,TMIN. 
»Tmax =»TMAX,»Nbre d’itérations =»,IT:tT=(TMAX-TMIN)/IT 
530 CLS: INPUT «Fonction X=»,FCTX$ 

540 INPUT «Fonction Y=»,FCTY$ 

550 CLS: PRINT «Veuillez patienter !»; 

560 ON ERROR GOTO 680 

570 FOR T=TM1N TO TMAX STEP IT:GOSUB 640:X=ROUND(X/ 
E+DECX,- 1 ) 

580 NJ=INT(X/5):1FNJ<0 OR NO>XPT THEN 630 
590 GOSUB 660 : Y =RO U N D{ Y /F+ DEC Y,- 1 ) 

600 N=INT(Y/7):IF N<() OR N>YPT THEN 630 
610NK=2*(X-NJ*5);AB=VAL(«&H+MID$(B$(N,NJ),NK+1,2)): 
AB=2 A (Y-N*7+1 ) OR AB 

620 BS(N,NJ)=LEFT$(B$(N,NJ),NK)+RIGHT${HEX$(AB),2) 
+RIGHT$(BS(N,NJ),8-NK) 

630 NEXT T:BEEP 0:GOTO 1 0 
640 X = VA L F( F CT X S ) 

650 RETURN 
660 Y=VALF(FCTY$) 

670 RETURN 

680 X= 1 E+08: Y= I E+08: RESUME NEXT 
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JEUX POUR CASIO FX850-880 

par Hilaire THIBAULT 


JACK-POT 

Ce programme s’adresse particulièrement aux adeptes des casinos, ou à ceux qui 
aimeraient y aller mais dont les moyens sont I imités. Il s'agit en fait d’un véritable 
' sim u lateur de J À CK- POT ’ , 

Les symboles utilisés sont les suivants : 

- symbole dollar - cerise - sept - pomme - étoile - pomme 

Le JACK-POT est composé de trois roues sur lesquelles sont disposés neufs 
symboles comme suit : 


ROUE N°1 

ROUE N°2 

ROUE N°3 

cerise 

sept 

pomme 

sept 

banane 

dollar 

cerise 

cerise 

cerise 

dollar 

pomme 

étoile 

banane 

dollar 

cerise 

pomme 

pomme 

sept 

étoile 

banane 

banane 

banane 

étoile 

pomme 

pomme 

cerise 

banane 

En appuyant 

sur [ESPACE], les trois roues tournent et s'arrêtent > 

L'ordinateur; 

analyse alors si vous a\ 

ez gagné, et affiche vos nains. 

*-■ «i- 

la partie avec 

10 crédits. 


dollar 

dollar 

dollar = 30 points 

sept 

sept 

sept — 10 points 

étoile 

étoile 

étoile = lOpts 

pomme 

pomme 

pomme = 5 pts 

banane 

banane 

banane - 5 pts 

cerise 

cerise 

cerise = 5 pts 


‘i 


cerise = I pis 


Seules ces combinaisons sont gagnantes. Bonne chance !!! 


iü 1 JACK FOI 

20 Cl. CAR DIM AS(6),R l<9),R2(9),R3(9) 

30 FOR 1=1 T0 6:READ A$(I):NEXT 

40 DATA2454FE5448.0C1 E9E7E()C,808E90AOCO, 1 C5 HFF.9 L0C.5438 FH3 8 54. 
387CFEC682 

30 C LS : DE FC ? H RS( 255 )= -4M )( )0FF00( MV :C REDIT= 1 0: F(. ) R I =2 TO 4; 
DEFCHR$( 250+1 )=»00()(KXXKXX)":NEXT 
60 FOR 1=1 TO 9:READ R 1 ( U ,R2( I ) ,R3( I ) : N EXT 
70 DATA 2.3, 4.3.6, 1 .2,2.2, 1 .4,5.6. 1 .2.4.4, 3.5.6.6.6,5.4,4.2.6 
80 LO CAT F 16,0: PR INT «SUPER JACK-POT»; 

90 LOC ATE 5 ,0 : PR I NT CHRS( 255) ;C H Rï{ 25 2) ;CH R$( 25 5 ); 
CHRS(253):CHR$(255);CHR$(254);CHRS<255); 

100 LOC ATE 16, 1 :PRINT « HILAIRE T. «; 

! 10 GOTO 270 

1 20 C t=INT(RAN#*9)+ ! :C2=INT(RAN#*9)+ 1 :C3=INT(RAN#*9)+I 
130 IF CREDITAI THEN CLSrPRINT « VOUS AVEZ PERDU !»:HND 
140 CREDIT=CREDIT- 1 : LOCATE ! 5, 1 :PRINT « Crédit =»;CRF.DIT; 

1 50 N 1 =] NT( R A N#* 1 5 )+5 : N2=INT(R A N#*l 5 )+5 : N3= I NT( RAN#* 1 5 )+ 5 

1 60 IF N I >N2 THEN M=N I ELSE M=N2 

170 1F M<N3 THEN M=N3 

180 1=0 

190 1=1+1 

200 ! F I<N 1 TH EN C I =C 1 + 1 :IF C 1 = 1 0 THEN C 1 = 1 

2 1 0 IF [<N2 THEN C2=C2+ LIE C2= 1 0 THEN C2= I 

220 IF 1<N3 THEN C3=C3+1 :IF C3= 10 THEN C3= I 

230 DEFCHR$(252)=A$(R ! (C! )):DEFCHR$(253)=AS(R2(C2)J: 

DEFCHR$(254)=A$(R3(C3)) 

240 IF I<M THEN 190 

250GOSUB 290:CREDIT=CREDIT+GA1N 

260 LOCATE 1 5, [ :PRINT « Crédit =»;CRKDIT; 

270 A$=1NKEYS:!F A$=»» THEN 270 
280 1F AS=» « THEN 120 ELSE 270 
290 ' GAGNE ? 

300 GAIN=0 

310 JF R3(C3)=2 THEN GAIN=1 
320 RESTORE 370 
330 FOR 1= I TO 6 
340 READ A, B 

350 IF RI (Cl )=A AND R2(C2)=A AND R3(C3)=A Tl 1EN GAIN=B: 

GOTO 390 
360 N EXT 

370 DATA 1 .30,2.5.3, 1 0.4,5 .5. 1 0.6,5 


390 IF CAIN=0 THEN LOCATE 
250: NEXT; LOCATE 5.1: PR INT « 
=»;GAlN::FOR T=i TO 250:NEXT: 
LOCATE 3, RPR INT « «; 

400 RETU R N 


3.LPRINT « PERDU !»;:FOR T=1 TO 
«; ELSE LOCATE 3.LPRINT « GAIN 


MEMORY 

Ce programme n’est qu'un remake d'un vieux jeu bien connu de tous. Le but du 
jeu est de réunir deux à deux chacune des trente cartes, en effectuant le moins de 
coups possibles. Il existe deux niveaux de jeu : le plus facile utilise un jeu de 
lettres, le plus dittieile est composé de caractères chinois ( en réalité, il s'agit des 
caractères ASCII 167 à 181 de la CASIO FX-880P et CASIO FX-850P). ! .orsque 
l'on lance le programme, le micro demande le niveau de difficulté, puis procède au 
mélange des cartes (c'est un peu long, mais c'est efficace!). Apparaît ensuite le 
tableau de jeu. On navigue entre les différentes cartes par les touches fléchées, et 
on valide par [ESPACE] pour retourner une carte. Lorsque toutes les cartes sont 
réunies deux à deux, le nombre de coups s'affiche. 

5 'MEMORY 

10 ( LEAR:CLS:PR1N ! «Quel niveau de difficulté ? ! : facile 2 : difficile»; 

20 A$=!NKEYS:IF A$=»» THEN 2(1 ELSE IF A$=» 1 " Tl IF.N NIV=64 ELSE IF 
AS=»2" THEN NI V= 1 66 Fil .SK 20 
30 X=1 :Y=1 :AX=LAY=l :DIM C( 15. 1 ):DEF'CHR$(255)= 

»FFFEHFFFFF» 

40 'TRIER CARTES 

50 CLS:PR!NT « CALCUL EN COl’RS!»;:LOCATH i .1 
60 FOR 1= I TO 30 

70 A=INT(RAN#' |; 15)+1:B=INT( RAN#*2):1FC(A,B toOTI IEN 70 
80C(A.B)=INT((M )/2)+ 1 : PR INT CHR$( 134); 

90 NEXT 

100 CI, S: FOR 1=1 TO 15:FORJ=()TO I :LOCATE 2*1- 1,J:PRINT CHR$(255); 
:NEXT J .LGOTO 180 
1 10 A$=INKEY$:IF A$=<»» THEN 1 10 
1 20 IF A$=CHR$(30) Tl IEN AY = Y: AX=X : Y=():GOTO 
! 30 IF A$=CHR$(3 1 ) THEN AY=Y: AX=X: Y= I :GOT() 

140 IF A$=CHR$(29) AND (X> I ) THEN AY=Y:AX=X:X=X- 1 :C.OTO 1 80 
150 IF AS=CHRS(28) AND (X<I5) THEN AY=Y:AX=X:X=X+ 1 :GOTO 
160 IF A$=» « THEN 200 
170 GOTO 110 

1 80 LOCATE AX*2-2,AY:PRINT « «;:LOCATH AX*2,AY: 

PKI NT « «;:LOCATE X*2-2.Y:PRINT « [ « : : LOC ATE X * 2 . Y: PR 1 NT «]»; 

190 GOTO 1 10 

200 DEFCI 1 R$(255 )= » AA55 AA55 AA »:LOCATE X*2- 1 .Y: 

PR INT CH R$(NIV+C( X. Y) );: IF F=() THEN XX=X:YY=Y:F= I :GOTO 1 10 
2 1 0 DEFCI IR$(255 )= » FFFFFFFFFF » : CC=CC + 1 :F=0: 

IF C( XX , Y Y )=C( X,Y ) THEN TT=TT+1 :GOSUB 230 ELSE FOR 1=1 TO 
250: NEXT: LOCATE 2*XX-I.YY:PRINTCHR$(255);: 

LOCATE 2*X- 1 .Y: PR INT CHRSt 255); 

220 GOTO 1 10 

2.30 IFTT=I5THEN CLS:PRINT « G AGNE!»;: LOCATE 0, 1 :PRINT «EN 

« ;CC ;» COUPS»: END ELSE 1 10 

POKER 

Ce programme a été fait pour tous les joueurs de cartes invétérés. Il permet de 
jouer seul contre la machine. Afin d’alléger le programme, qui est déjà assez 
conséquent, la calculatrice ne comptabilise pas tes points et n indique pas qui gagne. 
Toutefois, je rappelle l’ordre des combinaisons ( du moins fort au plus fort } 

- 1 paire : 2 cartes de même valeur 

- 2 paires : 2 lois 2 cartes de même valeur 

- Brelan : 3 cartes de même v aleur 

■ Quinte : 5 cartes qui se suivent et de couleurs différentes 

- ( ouieur : 5 cartes de la même couleur mais qui rie se suivent pas 

- Full : un brelan plus une paire 

- Carré : 4 cartes de même valeur 

- Quinte royale : 5 cartes se suivant rie même couleur 

De I ordinateur et du joueur, c est celui qui possède la plus forte combinaison qui 
gagne la manche. Pour changer de cartes en début de partie, on indique à l’ordinateur 
quelles caries on désire changer : on appuie sur « 1 » pour changer la 1 ère carte, sur 
«2» pour la 2ème carte, etc... Les canes que l’on change sont désignées par une 
flèche. Lorsqu une carte a été validée, on peut la dévalider en réappuyant sur la 
touche correspondante. En utilisant la touche [ESPACE], le micro réfléchit aux 
cartes qu il change, puis distribue. La touche [ESPACE [ permet alors de rejouer, 
Bonne chance au poker ! ! 
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Le programme est assez important, et est donc réservé aux possesseurs de CASIO 
KX qui possèdent assez de place mémoire. Il sc décompose en plusieurs modules : 
ligne 10 à 19 : il s agit de 1 affichage du titre ( les DATAS contiennent les données 
des ditférents stades d'affichage des lettres ), Pour les fainéants, i! est possible de 
remplacer la ligne 10 par : MO CLEAR:LOCATE 13,0:FRINT «POKER»; ‘ et de 
supprimer les lignes II à 18. 

ligne 20 à 91 0 : il s’agit du programme principal qui affiche les cartes et qui demande 
au joueur quelles cartes il désire changer. Ligne 1000 à 1046 ; c'est un sous- 
programme qui procède a la distribution des cartes ( et il n v a pas de cartes 
identiques !!) Ligne 1050 à 1 140 : c'est un sous-programme qui trie les 5 cartes 
que Ton a en main (de la plus petite à la plus grande). Il s’agit d’un tri par insertion 
( le tri SHELL-METZNFR est plus rapide, mais plus lourd a mettre en oeuvre et 
pas intéressant pour seulement S cartes à trier ). Ligne 7500 à 20020 : il s'agit 
d un sous-progi amme qui analyse le jeu de I ordinateur. Elle n'est pas parfaite 
loin s'en faut, mais elle présente l'avantage d’être simple et assez ni ' ' 


5 ‘ POKER 


10 CLS:CLEAR:A$=»POKER» 

1 1 FOR 1=1 TO 5:DEFCHR$(255)=»0000000000" 

12 LOCATE 13,0: PR INT LEFT$(A$,I-I);CHR$(255); 

13 FOR J=1 T0 7:READ B$:DEPCHR$(255)=B$:EOR T=I TO 10:NEXTT,J,I 

14 DATA 0202020200 ,0604040402, 0E08080806. 1 E 1 2 1 2 1 20C..3E242424 1 8 
7E484848 30,FB909 09060 

1 5 DATA 0002020200, 0204040402, 0608080806.0E I ü 1 0 1 00E, I E202020 1 H 
3E4040403E.7C8282827C 


1 6 DATA 0200000002,0600000204, 0E0002O408, 1 E020408 1 0.3E040A 1 020 
7E081 42240, FE 10284482 


1 7 DATA 0202020202, 0604040404, ÜE08080808, 1 H 1 2 ! 2 1 2 1 0.3E24242420, 
7E48484840,FE92929282 

1 8 DATA 0202020200, 0604040402, 0E08080806, 1 E 1 2 1 2 1 20C, 

3E242624 1 8,7E484C4 A30.FE90989462 


19 A$=»HILAIRE THIBAULT «:FOR 1 = 1 TO 23:LOCATE 31-l.LPRINT 


MID$(A$,I,I);:NEXT 

20 DIM CA{5,2),CO(5,2),C${8),J(5,2) 

25 FOR 1=1 TO 8:READ C$(I):NEXT:DATA « 7»,» 8",» 9”,» 10",» V»,» 
R»,» A» 


D » ,» 


1050 TRI PAR INSERTION 
1060 FOR 1=2 TO 5 
1080 FOR J=] TO 2 STEP-I 


1090 IF CAtJ- 1 ,Y)>CA(J,Y) THEN I 100 ELSE 1 1 20 


1 1 00 


S=CA(J-l,Y):CA(J-l,Y)=CA(J,Y):CA(J,Y}=S:S=CQ(J-l,Y):CO(J- 


l,Y)=CO(J,Y):CO(J.Y)=S 
1110 N EXT 


i 120 N EXT 


î 1 40 RETURN 

2000 ‘AFFICHE FLECHE 


2010 LOCATE 3+C*4, 1 :1F J(C,I )=l THEN PRINT Ci IRSf227V ELSF PRINT « 
2020 RETURN 


« + 

■■ 


5000 ‘ NB CARTE A RELANCER 
5010 KK=0:FOR 1 = 1 TO 5 
5020 IF J(1,Y)=1 THEN KK=KK+1 
5040 NEXT 


5050 RETURN 

7500 ‘ ANALYSE DE L’ORDINATEUR 
7505 ERASE O: DIM 0(8) 

7507 ERASE CL:DIM CL(4) 

7510 FOR 1 = 1 TO 5 
7520 0(CA(I,2))=0(CA(I,2))+1 
7525 CL( CO( 1,2 ) )=C L(CO( 1 ,2 })+ î 
7530 NEXT 

7533 FOR i=] TO 4 

7534 IF CL(I.)=5 THEN RETURN 

7535 IF CL(1)<>4 THEN 7539 

7536 FOR J-l 10 5 

7537 IF CO(J,2)=I THEN J(J.2}=0 ELSE J(J.2)=1 

7538 NEXT: RETURN 

7539 NEXT 


7540 FOR 1=1 TO 8 

7550 1 E Ot 1 )=4 THEN RETURN 

7560 NEXT 


7570 FOR 1=1 TO 8 
7580 IF 0(1 )<>3 THEN 8000 
7590 FOR J=1 TO 8 

7600 IF 0{J>=2 AND IoJ THEN RETURN 
76 H) NEXT 


30 FOR 1=1 TO 5:J(I,1)=] :J(I,2)= 1 :NEXT:ERASE CR:DIM CR(8.4) 

35 Y=l:GOSUB 1000: Y=2:GOSUB 1 000: FOR 1=1 TO 5: J( [,l)=0 
J(I,2)=0:NEXT:Y=1 

40 LOCATE 6,():FOR 1=1 TO 5:PRINT C$(CA(I,1 ));CHR$(231+CO(I 1)) » 
«;:NEXT 


50 LOCATE Û,0:PRINT «VOUS:»;:LOCATE 0. 1 :PR1NT «MOI : 

70 AS=INKEYS:IF A$=»» THEN 70 

75 IF A$=» « THEN 120 

80 IF A$«< 1 » OR A$»>5" THEN 70 

90 GOSUB 5 000;IF KK=4 THEN C=VAL(A$):IF J(C, 1 )=() Tl {EN 70 
92 C=VAL(A$):J(C,1 )=J(C, 1 ) XOR I 
100 GOSUB 2000 
110 GOTO 70 


120 Y=i :GOSlJB 5000:1F KK=0 THEN LOCATE 5.1 : PR INT 
ELSE LOCATE 5,1 :PRINT « «:KK;» CARTE»;:1F KK>1 


« SERVE «; 
THEN PRINT «S 


«; ELSE PRINT « «; 

1 25 FOR TT= 1 TO 250 : NEXT 


130 LOCATE 4,1 :PR]NT «JE REFLECHIS ... «;:GOSUB 7500 
1 35 Y=2:GOSUB 5(MM): LOCATE 4,1: IF KK=0 THEN PRINT «JE SUIS SERV 
«; ELSE PRINT «JE PRENDS «;KK;» CARTE»;:IF KK>1 THEN PRINT «S 
140 Y=I :GOSUB i 000: Y=2: GOSUB 1000 


7620 FOR K=l TO 5 

7630 1 F CA(K,2)=I THEN J(K,2)=0 ELSE j(K,2)=l 

7640 NEXT: RETURN 

8000 NEXT 

8010 FOR 1=1 TO 8 

8020 IF 0( I K>2 THEN 9000 

8030 FOR .1= 1 TO 8 

8040 IF NOT(0(J 1=2 AND IoJ) THEN 8500 
8050 FOR K= I TO 5 

8060 IF CA(K.2)=I OR CA(K,2)=J THEN J(K.2)=0 ELSE J(K,2)=I 

8070 NHXT:RETURN 

8500 NEXT 

85 10 FOR K=1 TO 5 

8520 IE CA(K.2)=I THEN J( K,2)=0 ELSE J( K.2)= i 
8530 NEXT: RETURN 
9000 NEXT 
9005 M=() 

9010 FOR 1=1 TO 4 
9015 O(I)=0 
9020 FOR J-l TO 1-1 
9030 FOR K= 1 TO 5 


145 CES 

1 47 FOR Y= 1 TO 2 

150 LOCATE 6.Y - i :FOR i=l TO 5:PR1NTCS(CA(LY)):CHRS(23 l+CO(I Y))-» 

«;:NEXT 

152 NEXT 

160 LOCATE 0,0: PR INT «VOUS:»;: LOCATE 0,1 :PR1NT «MOI :»; 

900 A$=INKEY$:IF A$=»» OR A$<>» « THEN 900 
910 CLS: GOTO 30 
1000 TIRAGE CARTES 
1010 CA=0:CO=0:FOR 1=1 TO 5 

1 020 IF J(I,Y)=1 THEN CA=1NT(RAN#*8)+I :CO=INT(RAN#*4)+l ELSE 1046 

1030 IF CR(CA,CO)=l THEN 1020 

1035 CR(CA,CO)= I 

1040 CA(I,Y)=CA:CO(I,Y)=CO 

1 046 N EXT 


9040 IF CA(K,2)=J THEN Ot i )=0(1)+ i 
9050 IF CA(K,2)>J THEN K=5 
9060 NEXT K J:IF 0(1)=5 THEN RETURN 
9070 IF 0(1 )>M THEN M=0(I) 

9076 NEXT 

9080 FOR 1=4 TO 1 STEP - 1 
9090 IF 0(1)<>4 THEN 9500 
9 1 00 FOR J= ] 10 5 

91 H) IF CA(J,2)<I OR CA(J,2)>(I+4) THEN J(J.2)=1 

9 120 NEXT: RETURN 

9500 NEXT 

20000 FOR 1=1 TO 4 

20010 J(I,2)=t 

20020 NEXT:RETURN 
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PROGRAMMES BASIC POUR CASIO PB1000 

par Daniel PRALONG 

Tous ces programmes en bas te sont donnés sous forme «compactée» : tous les espaces inutiles ont été supprimés, ainsi 
que certains symboles ( guillemets , point-virgules...), ce qui nuit quelquefois à la lisibilité ... toutes mes excuses. Mais attention ' 

Les espaces restants sont INDISPENSABLES pour la syntaxe ' 



1) Mise en traction sur CASIO PB1000 

Ce petit programme très utile circule beaucoup sur les CASIO graphiques, mon 
adaptation en Basic est déjà beaucoup plus rare... et, de toute manière je ne crois 
pas que cet algo ait déjà été publié dans Poche Computers (il n’a rien a voir avec 

I ai go du n 2 page 44). C’est, a coup sûr. un programme à avoir sur une touche 
sensitive à accès direct sur sa PB 1000. 

Le fonctionnement est on ne peut plus simple : le programme vous demande un 

rationnel. Ex : vous tapez 1 . 1 25 Vous appuyez sur |EXH| et la réponse s’affiche : 9/ 

iS Klcile ■ Oui. mais il est très rapide et, il va un peu plus loin. Il peut servir à faire 

toutes les opérations que l'on veut sur les fractions (simplifications, additions de 
fractions...). 

Exemples : 

1050/1950 [EXE] 

Réponse : 7/13 

9/4+S/2 | EX E | 

Réponse ; 19/4 

Attention a la précision de la machine 1! Si lui vous donnez PI, le programme vous 
répondra sans hésiter la moindre seconde PI = 1 03993/33 1 02, ce qui est naturelle- 
ment taux. Je vous laisse deviner pourquoi. 

10 ' Mise en fraction ** 

20 lNPUT»Rationne!: «,A 
30 B=A:C=INTA:D=! :E=I :F=0:G=ABS{A/l E9) 

40 lEABSl . A-C/DkG TH EN 60 

50 B=l/(B-]NTB):H=C:C=INTB*C+E:E=H:H=D:D=INTB*D+F:F=H:GOTO40 
60 PRINTA»=»C»/»D:GOTO20 

2) Astuce pour calcul des cosinus supérieurs à 8* PI sur PB 1000 

La F B 1000, comme toutes les t ASIO «basic», possède une petite limitation lors 

du calcul des cosinus el des sinus. En effet, si vous lui demandez le calcul suivant, 
en radian : 

COS(8*PI) |EXE j 

II va s al ficher une «BS errai» : dépassement de capacité 1 Mais c’est nul çà ! Et 
comment je fais moi pour résoudre numériquement mon équation si la solution 
n appai lient pas à |-8*P],8*PI | 77 Qu’à cela ne tienne ! Les fonctions trigonomé- 
triques étant périodiques, comme chacun sait, pour ramener la valeur x dont on 

veut calculer ic COS à un intervalle «raisonnable» pour la calculette, on peut utili- 
ser une petite astuce du style : 

lüx=x-2*Pl*INT(x/2/PI) 

20 RETURN 

( je vous laisse comprendre par vous même la formule) 

Sur PB 1000, vous pourrez appeler ce petit programme «K PI» et l’appeler chaque 
fois que nécessaire. Par exemple, si vous désirez tracez la courbe SIN(X) correcte- 
niLiit suite - 1 Lt 50, grâce a I excellent programme de trace de courbe pour PB 1 000 
publié dans le Poche Computers n°2. il vous suffit de faire la modif suivante : 
Programme Graph (page 34 du n°2) : 

I0COTO50 
20 x-X:GOSUB»KPI» 

25 Y=COSx 
30 RETURN 

... suite du listing identique... 

Reniai que/ bien la di lférenee entre «x» et «X». il ne laut évidemment pas modifier 
la valeur de X (qui doit varier entre - 1 et 50) sinon le tracé de la courbe foire. 

3) Changement de bases sur CASIO PB 1000 

Les fonctions de changement de base abondent sur toutes les calculettes modernes, 
mais pas sur la PB 1000, Celle-ci ne possède d’origine qu’une fonction de conver- 
sion en hexadécimal. Ce programme remédie à ce petit inconvénient et permet de 
convet fii des nombres de n importe quelle base vers n'importe quelle autre (entre 
_ ^ t 36). Son utilisation ne pose aucun problème et, il n’y a aucune astuce. Sauf 
une, pour changer de base de départ sans quitter le programme, vous devez entrer 
un «.» au lieu de donner un nombre. 

10 **• Bases 2 a 36 ** 

20 CLS:PRINT»CHANGEMENT DE BASE 
30 INPUT»Base de départ:», d 
41) INPUT»Base d’ arrivée:», a 
50 IFd<20Rd>360Ra<20Ra>3 6T I IEN30 
60 e=0:INPUT»Votre nombre:», N$ 

70 IFN$=».»THEN20 

80 G OS U B 1 20: !Fe= I THEN60 

90 GQSUB200 


1 00 PR INT» En base»a»: «ES 
1 10GÜTO60 

120 LG=LEN(N$):b=0:FORI=OTOLG-l 
1 30 i=ASC( M I D$( NS.LG-1, 1 )) 

140 I Fi<48 O Ri>90OR( i >5 7 AND i <65 )THENe= 1:1=LG- 1 :GOTO 1 90 

1 50 [Fi<58THENi=i-48 

1 60 lFi>64THENi=i-55 

1 70 lFi>-d THENe= I :I=LG- 1 :GOTO 1 90 

180 b=b+i*d A I 

1 90 NEXT:RETURN 

200 E5=»» 

210 R=b-a*INT(b/a) 

220 IFR<10THENI$=CHR$(R+48) 

230IFR>9THENlS=CHR$(R+55) 

240 E$=[$+E$:lFINT(b/a)>0THENb=INT(b/a):GOTO2K) 

250 RETURN 

4} Morse 

Certains petits programmes comme celui-ci sont d’une simplicité navrante, mais, 
ils peuvent rendre des services insoupçonnés. Imaginez-vous en classe, un jour de 

contrôle, vous êtes bloqué le trou ! Vous êtes arrivé au bout de vos 20 Ko de 

gi tiges sut votre PB 1000, mais 1 information qui vous manque ne s'y trouve pas. 
comment taire ? Voici la solution : Avec ce programme de traduction du code 
Motse vous allez pouvoir utiliser des signaux lumineux pour communiquer avec 
votre voisin !!! Son utilisation est à la portée des plus nuis : Après avoir lancé le 
programme vous n'avez qu’à taper quelque chose. Si c’est un mot à émettre (en 
iLttiest la calculette sous le traduira en morse. Si vous tapez le code morse que 
vous venez de recevoir la calculette reconnaît automatiquement que c’est du code 
et, elle vous le cotwenit en lettres. Lorsque vous recopierez le listing faites atten- 
tion a la ligne 20 et à la 30, qui sont longues et sources d’erreurs 
10 PRINT» MORSE 

20 DATA A,B,C.D.E,F.G,HJ,J,K,L,M,N,0,P,Q,R,S,T.U, V,W. 

X,Y.Z,L2,3,4,5.6.7,8,9.0./.(A) 

30 DATA 


■*■ r ■ ■ « 


*- - r x n ■ 


¥ Il + + 


40 IN PUT »» , A S : A= A SC( A $ ) 

50 IF(A>46ANDA<9 1 )OR( A>39ANDA<43 )TI IENGOSUB 1 60 
60 l FA =45 O R A =46 Tl 1 EN GOS UB80 
7!) GOTO40 

80 M$=»»:FORI=ITOLEN( A$):LS= M 1 DS( AS. 1.1 ):IFL$=» «THENW= I 
ELSEW=0 

90 M$=M$+L$:IFW THHNGOSUB 1 20 
100 N EXT 

! 10 M S= M S+LS :GOS UB 1 2 0 : P R 1 NT : R ET U R N 
1 20 M$=LEFTS(M$,1.EN{MS)- 1 >: RESTORE3():FORK= I TÜ40 
130 READRS: IFM$=R$THEN 1 50 
1 40 N EXT: PR 1 NT» 7» : : RETURN 

150 RESTORE20:FORN=1TQK:READL$:NEXT:PRINTLS;:M$=»»:RETURN 

160 FOR 1= 1 TQL F N ( AS ) :L$=M I D$( A$ ,1 , î ) 

1 70 RESTORE20:FORK= 1 1040: RE ADRS:1FR$=LS LH EN 1 90 
1 80 N EXT: PRINT»? GOTO20Ü 

1 90 RESTORE30:FORN=1TOK:READL$:NEXT:PRINTI 

200 N EX T 1 : PR 1 NT: R ETU R N 


I» «' 


5) Dessin Bitmap sur PB 1000 

Ce programme vous permettra de dessiner et de sauver vos oeuvres en 192x32 
pixels. L’utilité de ce programme est encore une fois douteuse... mais dans les 
épi cuves où la calculatrice est autorisée, personne ne pourra vous faire de remar- 
que si vous avez quelques petits schémas sur votre écran. 

Utilisation : Après avoir lancé le programme, vous devriez, normalement aperce- 
voir un petit point sur la gauche de l’écran, c’est votre curseur. Vous le déplacez au 
moyen des touches fléchées. Si vous appuyez sur la touche [espace] vous entendez 
un petit «clic», un pixel s’allume en haut de l’écran à droite : vous êtes passé en 

mode dessin. Ss vous réappuyez sur [espace | vous revenez, en mode effacement. 
Résumé des commandes ; 

[flèches] 

| SH IFT]+[ flèches 


déplacements du curseur 
déplacements rapides 


19 
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PROGRAMMES BASIC POUR CASIO PB1000 


[espace] 

[CLS] 

[S] 

[LJ 


mode dessin/elfacemem 
effacement de F écran 
sauvegarde du dessin 
chargement 

Cr' 


Les possibilités en dessin artistique de ce programme 


sont évidemment très limités, mais pour du Basic je 
trouve qu’il est assez fluide d'utilisation. Vous pouvez 
essayer d'y rajouter vos propres fonctions évoluées : 


tracé de lignes diagonales, de cercles, etc 



Dessin ** 


20 CLS:X= 1 0: Y= 1 0:X 1 = 10: Y I = 1():K=- 1 :ad=25Û89: 
lg-768 

30 i FK= 1 THEN DR AW(X 1 .Y I )-(X,Y) 

ELSEDR AWC(X 1 ,Y 1 1: DRAWfX.Y ) 
40Xl=X:Y!=Y 

50A=ASC(INKEY$):JFA=0THEN50 
60 IFA=28ANDX<191THENX=X+1 :GOTO30 
70 IFA=29ANDX>0THENX=X- 1 :GÛTO30 
80 IFA=30ANDY>0THENY-Y~ 1 :GOTO30 
90 IFA =3 1 ANDY<3 1 TH EN Y-Y + ! :GOTO30 
1 00 ! FA=32THEN C ALL& H FFE5: K-- K: 1ER = 1 
THENDRAWf 1 90,0)ELSEDRAWC( 1 90,(»:GOT()30 
1 10 IFA= 1 AN D Y<26T HENY= Y +5 : GOTO30 
1 20 I FA =2 A ND X > 1 0T H E N X=X - 10:GOTO3() 

1 30 IFA=6ANDX< 1 8 ! THENX=X+ 1 0:GOTO30 
140 1FA= 1 2THENCLS:GOTO30 
1 50 1FA= 1 6 AND Y>5TH EN Y=Y-5:GÜTO30 
160 1FA=83THEN BS AVE»BAK»,ad,lg:CLS: INPUT» 
SAVE <A$:BLOAD»BAK»,ad:RSAVEAS,ad,lg 
170 IFA=76THENCLS:INPUT»LOAD «;A$: 
BLOADAS.ad 
1 80 GO ÏO30 


6) Editeur de fontes 

La PB 1000 possède 10 caractères redéfinissables. Le 
but de ce programme est de faciliter la création de nou- 
veaux caractères exotiques qui pourront être utilisés 
dans vos propres programmes. 

Mode d’emploi : 

Tapez tout d'abord le premier programme (le plus 
court). Laneez-le : i! scri à créer F image de fond 
DI DOT. IMG qui sera utilisée par le programme prin- 
cipal. Ensuite, vous pouvez effacer ce premier pro- 
gramme et lancer le vrai (le long). Il vous est demandé 
le nom d'une fonte. Si vous avez lapé une fonte don- 
née en exemple (ci-dessous) dans un fichier de type 
«data», vous pouvez donner le nom de ce fichier. Si- 
non une nouvelle fonte sera créée. Ensuite, apparaît 
l’écran de dessin. A 

gauche vous avez une grille qui représente un carac- 
tère grossi ît la loupe (x4). A droite, vous avez les 16 
caractères redéfinis avec en dessous, en petit, leur nu- 
méro dans la table ASCII (de 240 à 255). 

Résumé des commandes : 


2. 6, 4, 8 déplacements du curseur sur la loupe 
5 noirci/efface un point 

L charge un caractère dans la loupe 

(vous devez donner un numéro > 239) 

S sauvegarde de la loupe 

F édition d’une autre fonte (de 16 caractères) 

10 création de DI DOT IMG ** 

20 DATACBCADBD l D300.8BCA9B9 ! 9300, 

CB8ADB5 1 D30Ü.CB8ADB9 1 D300 

30 D ATA4B4ADB9 1 9300.CB4 ADB9 1 D300, 

4B4ADBD I D300.CB8A9B919300 

40 DATACBCADBD 1 D300.CBCADB9 1 9300, 

DBCADBD 1 DB0Ù,9BCA9B9 1 9B00 

50 DATADB8 ADB5 1 DB00,DB8ADB9 1 DB00. 

5B4ADB91 9B00.DB4ADB9 1 DB00 

60 C LS : FORX=QT05 : FORY=()T07 

70 A=X*4+10:B-Y*4+ 1 


80 DR AW( A,B)-( A+2,B)-( A+2.B+2 )-( A.B+2)- 
(A,B+ 1 )-(A+ 1 .B+l ) 

90 N EXT: N EXT: I .OC ATE 1 6. i 
! 00 EORMJTO 1 5 : R HA DR8:DF,FCH RS( 240+1 »=RS: 
PR I NT C HRS(240+I);:N EXT’ 

1 10 B S AV E» D I DO' I I M G ». 25 089, 768 
10 Editeur de fonte ** 

20 SP$=» «’ 1 4 espaces 

30 ZZS^OOOOOOOOOOOO’" 1 2 zéros 
40 F R A S EC ,CH$: D I MC ( 5 ,7 ) ,C H S( 1 5 ) 

50 CLS: INPUT »Nom de fonte»;FON$ 

60 ON ER RO R G0T075 0 
70 OPEN FON $ KO R IN PUTA S # 1 
80 FORl=()TOI 5 : INPI JT# I ,CHS(I) 

90 DFFCHRSt 240+1 )=RIG HT$(Ci 1$( ! ), 1 2) 

100 N EX T: CLOSE 

1 1 0 B LOA D»DJ DOT. I MG » ,25089 : LOC ATE 1 6.0 
120 FOR X=0 1 0 1 5 : PR I NTCHR $( 240+X ): : N EXT 
130 FORX=0TO5:FORY=()TO7:C(X,Y)~I : 
NEXT:NEXT 
140 X=0:Y=0:A=1():B=I 

150 DRAW(A-LB- 1 )-(A+3,B- 1 )-( A+3,B+3)-< A- 
I .B+3)-( A- 1 ,B-1 ) 

160 K$=INKEY$:l=VAL(KS):ONI GOSUB.220., 

220, 360. 220,, 220 

170 IFK$=»S»THEN430 

180IFK$=»L»THEN6I0 

1 90 i F K S= »F»T H EN50 

200 GOTO 160 

2 1 0 ‘Mouvement 

220 1=1/2 

230 DRAWC( A- LB- 1 }-( A+3.B- 1 M A+3.B+3M A- 
1.B+3MA- LB- 1 ) 

240 ONI GOSUB270, 290,3 10,330 

250 DR AW( A- LB- 1 )-( A+3, B- 1 )-( A + 3. B+3 }-( A- 

I.B+3)-( A- 1,B- 1 ) 

260 RETU R N 

270 1EY<7THHN Y-Y+l :B=B+4 
280 RETU R N 

290 1FX>0THENX=X-1 : A=A-4 
300 RHTURN 

3 i 0 IFX<5T!IENX=X+ 1 :A=A+4 
320 RHTURN 

330 1 FY >0T H EN Y = Y - 1 :B=B-4 
340 RETU R N 
350 ‘Effacer/Noircir 

360 IFC(X,Y)= 1T1 1ENC( X.Y )=0:GOTO4(K) 

370 C(X,Y)=l 

380 DRAW(A,B)-(A+2.BMA+2,B+2)-<A.B+2)- 

(A.B+I )-(A+l,B+l) 

390 RETU R N 

400 DRAWC(A,B)-(A+2.B)-(A+2,B+2)-( A.B+2 )- 
( A,B+ ! )-(A+ 1 ,B+ 1 ) 

4 10 RETU RN 
420 ‘Save 

430 DRAWC(A- 1 .B- 1 )-(A+3,B- 1 )-( A+3.R+3M A- 
l,B+3)-(A-l,B-l) 

440 I .OC ATE 1 6,2: 1 N PUT»Save n°»;N 


460 I=0:ERASEK:DÏMK( 1 1 ) 

470 FORX =()T05 : FOR' Y =0T()7STE P4 

480 K{ I) =C ( X , Y } * 8 +CY X . Y + 1 )*4+C(X.Y+2)*2+ 

C(X,Y+3): 1=1+1 

490 N EX T: N EXT 

500 KS=»»:FORI=OTO I ! 

5 1 0 IFK{ 1)< 1 0T H EN 1S=C 1 1 RS( K(I)+48) 

520 IFK(1)>9THEN l$=CHR$( K( 1 )+55 ) 

530 KS= KS+ 1 $: N EXT:DEFCHRS{ N )=K5 
540 CHS(N-240)=RIGHTS(STR$(N),3}+» «+K$ 
550 OPENFONSFOROUTPUTAS# 1 
560 FORDOTO 1 5:PRINT# 1 ,CH$(I) 


5 70 N EXT : C LOSE: I .OC ATE 1 6,0 
580 FORX=OTO 1 5:PRINTCHR$(240+X);:NEXT 
590 LOCATE 1 6,2: PR I NTSP$:GOTO 1 40 
600 ‘i ,o ad 

610 LOCATE ! 6.2: INPUT»Load n°»;N 
620 1 E N<24( )OR N >25 5TH E N 6 1 f ) 

630 DATAOOOO.OOO 1 ,00 1 0.00 1 1 ,01 00.010 1,01 1 0, 
1)111, 

1 000, 1001 ,1010, 101 U 100.1 101,11 10, 1111 
640 KS=»»:IS=RIGHT$(CHS( N-240), 1 2) 
650FOR1=1T012:K=ASC(M1D$(IS,L I )) 
660IFK<58THENK=K-48ELSEK=K-55 
670 R ESTORE : FORJ =0TO K ; R E A D B S : N EXT: 

K S= K $+ B S : N EXT 

680X=0:FORI=lTO48STEP8 

690 F0RY=BT07:C( X.Y)=VA1 .< M1D$( K$,Y+1, ! )): 

NEXT:X=X+1:NEXT 

700 C LS : B LO AD»D I DO' 1 I M G». 25 089 

710 LOCATE 1 6,0:FORX=OTO 1 5 : 

PRTNTCHR$(240+X);:NEXT 

720 FORX=0TO5:FORY=0TO7 

730 [FC(X.Y)=0THENA=X’ K 4+ 1 Ü:B=Y !(! 4+ 1 

: DR AWC ( A . B)-( A+2, B H A+ 2, B +2 )- 

(A,B+2)-(A,B+l )-(A+ l.B+1 ) 

740 NEXT:NHXT:GOTO 1 40 

750 CLOSE: IFERR= 1 0THENPRINT»C eue fonte 

n’existe pas. «ELSEPR1N I «Erreur ! ! !»:END 

760 INPUT «Voulez- vous la créer «;RS 

770 IFR$=»O»ORR$=»o»THEN780ELSE 

RFSUMF50 

780 OPEN FO N $ FOR O UT PUTA S#2 
79( ) FO R 1 =24( )T025 5 : D EFCH R$(1)=/ZS: 
CHS(1-240)=RIGHT$(STR$(I),3)+» «+ZZS: 
PRINT#2,CH$(I-240):NEXT 
800 CLOSE#2:RESUME ! 1 0 
Fonte GREC.CHR (à taper dans 
un fichier «data» qui portera ce nom) 

240 IC2222 IC2200 

241 3F4A4A340000 

242 4222 1 C204000 

243 2C52524C0000 

244 1 42A2A2A0000 

245 30483F487000 

246 295555520000 

247 203E203E2000 

248 003F48487000 

249 O00C L2121C 10 

250 0040203C4220 

251 0030083FÜ830 

252 007C92927C00 

253 000000000000 

254 424438040200 

255 IC021E021C00 

Fonte MATH.CHR (à taper dans un fichier «data») 

240 C6AA92828200 

241 FE808O8OFEOO 

242 00007 F808 000 

243 0101 FEÜ00000 

244 OOOOFFOOOOOO 

245 OOOOOOB8E8(K) 

246 OOOOOOA 8 F 8 OO 

247 203CFF808080 

248 808080808080 

249 170001000116 

250 01 1600010017 

25 1 080808080808 

252 0808082A LC08 

253 00FE0000FE00 

254 424438040200 

255 IC021 E02 IC00 
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FRACTALES SUR Tl 81 

Par Pierre-Philippe COUPARD 

Vob i et de ce Programme est de tracer une courbe bien connue de ceux qui s ’ intéressent de près ou de loin 
a ce groupe très particulier de courbes que sont les /raciales : la courbe de VON KOCH, aussi appelée «flocon de 

neige». Mais en choisissant d’implémenter l’algorithme de sa construction du TI SI, nous pourrons ainsi aborder la 
manière de dépasser les capacités originelles d’une calculatrice ou d’un ordinateur en généra! 



Qu’est-ce qu’une courbe fractale ? 

Que tous cllix qui pensent à 1 instant présent que le paragraphe 
qui suit est une leçon de mathématique rébarbative se rassurent : 
nous allons essavei de ne pas trop leur faire consommer d'aspirine. 
Cependant, il est nécessaire de rappeler ce qu'est une fractale. 

Une courbe fractale, d'une manière générale, est une courbe qui 
possède une invariance d échelle, c'est-à-dire que si vous observez 
une 1 raciale à l’oeil nu, puis avec une loupe, puis encore avec un 
microscope, vous verrez exactement le même motif. 

Notons au passage que les fractales peuvent aussi bien être des 
lignes brisées (dimension 1 ) que des courbes inscrites dans un plan 
(dimension 2) ou des courbes dans l'espace (dimension 3). 

foin avoii une idée claire, un bon exemple de l’invariance 
d’échelle est le chou-fleur : prenez un chou-fleur. Admirez-le (pas 
trop longtemps, quand même !). Coupez-en une branche et 
regardez- la de près : vous aurez l'impression de retrouver l’image 
du chou-fleur entier. 

La fractale qui nous occupe ici est une courbe en 2D qui possède 
plusieurs propriétés, dont tes suivantes : 

- hile possède cette fameuse invariance d’échelle 

- C'est un polygone qui a un périmètre infini mais qui contient une 
aire finie (on démontre qu'elle s'inscrit dans un cercle) 
L’algorithme 

La méthode de construction du flocon de neige est la suivante : 
dessinez un triangle équilatéral. Divisez chaque segment de la 
courbe ainsi créée en trois sous-segments et dessinez de nouveaux 
triangles équilatéraux trois lois plus petits sur les sous-segments 
du milieu (les nouveaux triangles «pointent» vers l’extérieur de la 
courbe). El lacez les sous-segments du milieu. Il faut ensuite 

recommencer l’opération sur chaque segment de la nouvelle courbe 
ainsi créée, et ceci à l’infini. 

l.n pratique, on ne recommence qu'un certain nombre de lois 
car, au bout d un moment, on ne peut plus distinguer les segments. 
Ce nombre d'itérations est appelé le «rang» de la fractale. 

Dans notre programme, on va utiliser un algorithme récursif, 
c est-à-dire qu’on va juste créer une procédure qui, à partir d’un 
segment, trace tes 4 sous-segments résultants, et on va faire que 
celle procédure se rappelle elle- même «rang» fois. 

Oui, mais ... 

«C’est bien, cette procédure qui se rappelle, mais les procédure 
sm TI 81, il n'y en a pas. Comment faire ?» Bravo à tous les 
possesstuis de 1181 sagaces qui ont remarqué ce (gros) défaut 
de leur calculatrice et honte à Texas Instrument. De fait, il va faloir 
geici soi-même 1 appel de la procédure, puis le retour de celle-ci. 

Pour mémoire, quand on appelle une procédure (en faisant 

GOSIjB M)00 en BASIC, par exemple), le langage utilisé retient 

en mémoire l’endroit du programme où la procédure à été appelée 

(pour les puristes de l’assembleur, il empile l'adresse de l’instruction 

courante), puis ii saute à la première instruction de la procédure. 

Celle-ci exécutée, il faut retourner à l’instruction qui suit 

immédiatement l’instruction qui a appelé la procédure (à l’aide 

d un RLTURN en BASIC, ou en dépilant d adresse de retour en 
assembleur). 

Sur notre TI 81, on va créer une sorte de pile à l’aide d'une 


variable numérique, et on va utiliser des sauts conditionnels pour 
brancher telle ou telle ligne du programme. 

La pseudo-pile : 

On considère chaque chittre de la variable G comme étant le 
code de retour de la procédure : 

Au niveau de profondeur procédural 0 (c’est-à-dire dans le 
programme principal) : G=0 

Si on appelle fa procédure a I endroit 1 sur programme, par 
exemple, on «empile» 1 et G= 1 . On sc retrouve au niveau I 
Si dans la procédure, on rappelle cette même procédure à l’endroit 
2, on «empile» 2 et G-2 1 . On se retrouve au niveau 2. 

Quand on sort de la procédure, on «dépile» le dernier chiffre 

«empilé» et, selon su \ aleur, on retourne a 1 endroit, du programme 
idoine. 

Les instructions qui permettent d »empiler» le code de retour X 

dans G au niveau S au moment de l'appel de la procédure et 

d inc ic ment ci le niveau de profondeur procédural sont 
:G+X*10 A (S+I ) -> GS+! -> S 

et les instructions qui permettent de «dépiler» le dernier chiffre de 
G au niveau S. de i envoyer ce chiffre dans Z et de décrémenter 
le niveau de profondeur procédural sont : ! PA RT( G/ 1 0 A S ) ->ZG- 
Z* ! 0 A S > G S- 1 -> S 

Ce type de «bricolage» de programmation est très pénalisant en 
temps machine, en place mémoire et rend un long programme 
incompréhensible. Mais ici. on n a malheureusement pas le choix 
si on veut faire le programme d'un seul tenant. 

Le traçage proprement dit : 

Maintenant qu on a réglé le problème des procédures, faites appel 
d vos souvenu s ; vous sou venez- vous du LOGO 7 Ce sympathique 
langage, implanté à une époque sur pas mal de T07 et M05 dans 
les collèges français dans le cadre du défunt programme 
Inlonnatique Pour Tous était orienté graphisme et se servait d’une 
«tortue» (logique, bien sûr. pas une vraie!) à laquelle on demandait 
d avancer de x pas. ou de tourner d' un certain angle sur el le-même. 
On pouvait ainsi lui taire dessiner des figures sans rien connaître 
d’autre que les coordonnées de son point de départ. 

C'est exactement ce type de déplacement relatif qu’il nous faut 
ici. On va donc donner vie à notre propre «tortue» sur la TI 8 1 . et 
on lui demandera de tracer des segments d’une certaine longueur, 
puis de tourner d’un certain angle, etc ... jusqu’à ce que, segment 
api ès segment, elle tiace le flocon de neige sur l'écran de la 
calculatrice et revienne à son point de départ. 

Dans le programme, les variables E et F sont les coordonnées 
courantes de notre «tortue» et A est l'angle courant par rapport à 
I axe des abscisse. Un déplacement de la tortue exige un vecteur 
de coordonnées Lcos A et Lsin A (I. étant la longueur du vecteur) 
que l’on ajoute à E et F à chaque segment tracé. Faire tourner la 
tortue de x degré revient simplement à ajouter x à A. Le traçage 
réel sc f ait bien entendu à l'aide des instructions «LineO». 

Notre tortue est maintenant prête à s'acquiter de la lourde tâche 
qui lui incombe. 

Le reste du programme : 

Un cet tain nombre de paramètres vous sont demandés au début 


21 


Poche computers N°4 




POCHE COMPUTERS 


FRACTALES SUR Tl 81 


du programme pour mener l'opération de traçage à bien, à 
commencer par le rang de !a fractalc. En effet, la TI 81 ira pas un 
écran de station VAX. Il est donc inutile de lui demander d'aflicher 
un niveau de détail excessil : çà n'apporte rien et le traçage devient 
très long. Un rang 3 donne déjà un très joli flocon de neige et un 
rang 4 trace une courbe dont on ne distingue plus les bords. 

Vous devez ensuite entrer le diamètre du cercle circonscrit à la 
fractale. Comme nous l'avons dit plus haut, la courbe de VON 
KOCH est inscrite dans un cercle. Vous pouvez donc lui donner le 
diamètre que vous désirez, cependant gardez à l'esprit que plus la 
fractale affichée sera grande, plus vous la verrez bien. Tout dépend 
des variables RANGE, 

Enfin, on vous demande les coordonnées du centre du cercle, 
c’est-à-dire du centre de la fractale. Vous pouvez ainsi la positionner 
n'importe où dans le repère choisi. 


Les coordonnées de départ de la «tortue» ainsi que la longueur 
des segments sont calculés à partir de tous ces paramètres. 
Exemple de traçage : fractale centrée sur l'origine du repère : 
RANGE en mode Eunction : Xmin=-4,8 

Xmax=4.7 
X sc 1=1 
Yinin=-3.2 
Ymax=3. 1 

Y sc 1 = I 

Paramètre du programme : RANG FRACTAL: 3 

DIAMETRE : 3 
X CENTRE : 0 

Y CENTRE : 0 

Voila, faites de belles fractales et n'hésitez pas à reprendre ces 
astuces pour en créer d'autres encore plus belles ! 


Le programme : 

Prgml: FRACTALE 
:Desz 

:ClrDraw 

:ClrHome 

:Disp «COURBE DE» 
:Disp «VON KOCH» 

:Disp « » 

;Disp «» 

:Disp «RANG FRACTAL» 
:lnput R 

: Disp «DIAMETRE» 
dnput T 

:Disp «X CENTRE» 
dnput X 

;Disp «Y CENTRE» 
dnput Y 

:X-T*SQR(3)/2 -> X 
:X+T/2 -> Y 
:() -> A 
:() -> V 

:T/SQR(3) A (2R- 1 ) -> L 
:Lbl 9 
:0 -> S 
:0 -> G 


Lbl 0 
S+ 1 -> S 
If S<R 
Goto 1 

X+Lcos A ~> E 
Y+Lsin A -> F 
Line(X,Y,E,F) 
E -> X 
F -> Y 

Lbl 5 

A +60 -> A 
If S<R 
Goto 2 


X+Leos A -> E 
Y+Lsin A -> F 
Line(X,Y,E,F) 

E -> X 
F -> Y 

Lbl 6 

A- 1 20 -> A 
If S<R 
Goto 3 

X+Leos A -> E 
Y+Lsin A -> F 
Line(X,Y,E,F) 

E -> X 

F -> Y 

Lbl 7 

A +60 -> A 
If S<R 
Goto 4 

X+Lcos A -> E 
Y+Lsin A -> F 
Line(X,Y,E,F) 

E ->X 
F -> Y 


:Lbl 8 
df S= I 
:Goto A 

: I part (G/10 A S) -> 
Z 

:G-Z*10 A S -> G 
:S- 1 -> S 
: I f Z=0 

:Goto 0 
df Z=1 
:Goto 5 
: I f Z=2 
:Goto 6 


NOUVEAU ! 

" Le FANZ de la TI85 " 

demandez le numéro 1 (spécial jeux) 
prix : 10F port compris 

Jérôme DU VAL 

19, avenue des sapins - 25560 FRASNE 




: I f Z=3 
:Goto 7 
df Z=4 
:Goto 8 

:Lbl I 

:G+ 1 0 A (S+1 ) -> 
G 

:Goto 0 


: Lbl 2 

:G+2*10 A (S+1) - 
> G 

:Goto 0 


: Lbl 3 

:G+3*I0 A (S+1) - 
> G 

:Goto 0 


:Lbl 4 

:G+4*10 A (S+1 ) - 
> G 

:Goto 0 

:Lbl A 
: A- 1 20 -> A 
:V+1 -> V 
df V<3 
•Goto 9 
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PROGRAMMES POUR TI85 

par David TADDE1 


Programme pour les suites récurrentes pilotabie par menus 

+ 5 sous-menus : 

- déclaration (ex : U(n+l)=U(n)/2 , U(0)=1 . nb=10) 

- défilement de valeurs (les nb premières valeurs sont affichées ) 

- calcul à un rang donné (ex : calculer U( 100)) 

- fractions (afficher ou non les nombres en fractions ) 

- quitter (sortir du programme) 

+ programmes : 

- premier programme à lancer : WINiT (initialisation des variables) 

- programme principal : SUITES 

{ 1 

{ Programme : WINIT } 

I î 

1 0->NB 
1 ->N0 

«N/2»->STS 
«U(n)/2»->STD 
0->FRS 
Cl LCD 

Disp «Initialisations O K» 

{ } 


Programme : 


SUITES 


} 

I 


» 


1 

Lbl A i 
Cl LCD 

Disp «> SUITES RECURRENTES 
Disp «[ par David Taddei 1» 

Disp «» 

Disp «U(n+ 1 )=»+STD 
Disp «U(0)=» 

Disp «i=» 

Outpt(6,3,NB) 

Outpt(5,6,NO) 

Men u ( L »Init» ,A2,2 ,» Scrol» , A4, 3 ,»Calc» , A3 ,4, »Frac» , A5 ,5 ,»Qui t» ,B ) 
Lbi A 5 
Cl LCD 

Disp «Mode Fractionnaire :» 

«. » 

If FRS==0 
Then 

Disp «> Oui» 


Disp «> Non» 

End 

Menu( 1 ,»Oui»,A5 1 ,2,»Non»,A52,5,»Quit»,A 1 ) 

Lbl A 5 1 
0->FRS 
Goto A5 
Lbi A52 
1 ->FRS 
Goto A5 
Lbl A 2 
Cl LCD 

Disp «Déclaration :» 

Disp «» 

Menu( 1 ,»U(N)=»,B 1 ,2,»U{0)=»,C 1 ,3,»i=»,D1 ,5,»Quit»,A ! ) 


LbIBl 

InpST «U(n+1 )=»,STD 
1->I 

While (sub(STD,I,4)o»U(n)») 

1+ 1 ->1 
End 

If sub(STD,1 ,4)<>»U(n)» 

Then 

sub(STD, 1 ,1- 1 )+»N»->STS 
El se 

«N»->STS 

End 

Tf sub(STD,lngth STD-3,4)o»U(n)» 
STS+sub(STD,l+4,lngth STD-I-3)->STS 
Goto A 2 
Lbl C 1 

Input «U (())=», NO 
Goto A2 
Lbl DI 

Input «i=»,NB 
Goto A2 
Lbl A3 
Cl LCD 

Disp «Calcul de U(n) :» 

Disp «» 

Input «n=»,VAL 
Disp «» 

St>Eq(STS,STF) 

N0->N 
For(1, 1, VAL) 

STF->N 

End 

Lbl A32 
If FRS==1 
Then 
Disp N 
Else 

Disp N>Frac 
End 

Outpt(5,l ,»U(n)“») 

Pause 
Goto Al 
Lbl A4 
C1LCD 

St>Eq(STS,STF) 

N0->N 
For(1, 1, NB) 

STF->N 
If FRS== 1 
I ben 
Disp N 
Lise 

Disp N>F rac 
End 
Pause 
End 

Goto A 1 
Lbl B 

{ — 
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La rubrique du PSION SERIES 3/3a 


Le fax pour Sériés 3a : 3Fax 

Il nous vient d'angleterre où il est commercialisé depuis peu. 
Esthétiquement, il ressemble beaucoup au Sériés 3a. D’une taille de moitié 
inférieure au Psion, son apparence est quasi identique à l'ordinateur. Les 
possesseurs du Sériés 3 même en 236 K ne pourront utiliser ce fax. 1! 
fonctionne uniquement avec le 3a et 3 1 2K de mémoire. Vous devez pouvoir 
libérerait moins 160K de mémoire ; au démarrage, le loeieiel a besoin de 
65 K. 



Le fax transmet à 9600 bds maximum, mais ne peut recevoir. Le modem 
reçoit et émet à 2400bds maximum. Le boîtier intègre les protocoles V2 1 
(300bds),V22 (1200bds),V22 bis (2400bds), le V23 (75/1200 bds : 
minitel) pour le modem et le V27tcr (4800bds) et le V29 (9600bds) poul- 
ie fax. Sachez aussi qu'il n’est pas agréé France Télécom, et ne le sera 
sans doute jamais. Je rappelle que dans ce cas, l’achat (et la vente !) d'un 
tel système n’est pas interdit, mais "seulement !" son utilisation. Libre à 
vous de ne pas vous faire prendre ! (entre nous, il y a peu de chance que 
cela vous arrive, sauf à aller vous même vous dénoncer !!! mais là. c’est 
autre problème relevant de la psychanalyse et non de l'informatique...) 
Sous des prétextes de vérification de qualité, c'est une manière pour France 
Télécom de monopoliser le marché car F. T. aime bien la concur- 
rence. ..quand ça l’arrange... (remarquez, les autres pays font de même !) 
Car n’allez pas croire que les fax étrangers non agrées sont plus mauvais 
que les nôtres ; ce serait plutôt le contraire. Le système français vendu par 
AWAREet nommé POWERFAX, nécessite à l’inverse du son homologue 

•lT 

Anglais l’acquisition de l'interface série, son esthétique est plutôt 
discutable, et il n’est pas meillleur que le 3Fax, mais est agréé F.T. 

Pour transmettre un fax, rien de plus facile. Après avoir réglé la vitesse: 
le plus souvent 9600bds, mais il faut savoir que dans certains cas (exemple: 
émission à l’étranger), il est parfois préférable de diminuer la vitesse au 
prol it d une bien meilleure émission, après avoir configuré le système de 
numérotation (tonalité ou impulsion), vous lancez le programme. On vous 
demande si vous voulez créer un nouveau texte. Ceci se comporte comme 
le traitement de textes interne du Psion, à la dilïérenee près que vous 
pouvez intégrer des dessins et images, pour les expédier par la suite. Au 
préalable, vous avez également la possibilité de visualiser votre envoi. 
Quant aux numéros de fax. vous pouvez les extraire directement depuis la 
base de données interne, le 3Fax composera tout seul le numéro. Si vous 
desirez envoyer le texte que vous êtes en train de taper, il vous suffira de 
sélectionner le périphérique de sortie : fax au lieu d'imprimante et de lancer 
l’impression (qui sera ici l’émission). 

Un autre avantage du 3Fax par rapport au Powerfax est qu’il fonctionne 

avec 2 piles alcaline R6, alors que le Powerfax ne fonctionne que sur 
secteur. 

Pourquoi acquérir un fax 7 ( 'est sans doute la question que vous vous 
posez depuis longtemps. Le fax est devenu un objet utilitaire presqu'aussi 
indispensable que le téléphone, du moins pour beaucoup de monde. Le 
constat que ion peut faire après l'acquisition d'un fax est qu’il s’amortit 
très rapidement (quelques semaines pour un commerçant ou une société 
et un an ou deux pour un particulier, ou même beaucoup moins). En effet, 
un fax ne vous ruine pas en téléphone. Vous expédiez une feuille à un ami 
ou pour une commande et : 

1 ) vous n’avez pas d'attente 

2) dans le cas d’une commande par exemple, on répond plus rapidement, 
et les écrits restent. 

3) un fax peut avoir valeur de droit ou de preuve en cas de litige. 

4) cela ne vous coûte que le prix d'une communication (à 9600bds, une 
page est transmise en une vingtaine de secondes). 

5) et puis, vous pouvez envoyer des dessins, des croquis ou ... un mot 
doux... 


Pour transmettre par modem, Fcomms le permet facilement. Des critères 
de configuration sont à définir au préalable : vitesse, nombre de bits, parité 
etc... et numérotation. Ensuite, vous pouvez choisir entre le protocole des 
Xmodem et Y modem ou du terminal d’émulation, tout dépend si vous 
désirez transmettre des fichiers aseii ou non, avec ou sans protocole. 

A quoi peut servir un modem ? Vous le savez déjà sans doute, mais il est 
bon de rappeler que vous pouvez par exemple envoyer ou recevoir des 
programmes, vous connecter à toutes sortes de bases de données 
(CompuServe etc...), ou même vous connecter au minitel. Dans ce cas. le 
problème sera de trouver le programme émulateur. Nous allons en parler 
maintenant. 

NOGETEL, l’émulateur minitel : 








La société NOGEMA INFORMATIQUE a mis au point le produit 
NOGETEL. L’ensemble est proposé dans une mallette plastique bien 
pratique. 11 comprend : un modem Ohtec + une disquette programme avec 
un manuel (il peut être fourni également sur SSD) + la eonneetique + un 
adaptateur secteur. A ce sujet, te choix d’un modem est hé au fait qu’il doit 
être impérativement alimenté par une source électrique extérieure (exceptés 
le 3Fax et le Powerfax). et non à partir du Series3. ('eue nouvelle version 
est adaptée au Sériés 3a (256 ou 5I2K) alors qu'il existe une version 
antérieure pour le Sériés 3. 

Nogetel permet : 

- un appel de serveurs télématiques (36 1 5.36 1 6 etc., annuaire électronique 
( 1 1 ) et autres serveurs dédiés. 

- une émulation des touches du clavier minitel (suite, envoi, sommaire, 

guide....) 

- un affichage des écrans du minitel reçus par la ligne téléphonique. 

- une mémorisation de toutes les pages reçues. Celles-ci seront consultées 
hors-connexion sans être relié à la ligne téléphonique. 

- le stockage des pages écrans minitel dans un format utilisable par d’autres 
logiciels (traitement de texte...). Ces pages écrans peuvent être également 
exportées vers un micro-ordinateur. 

- une automatisation des appels à un serveur. Les saisies répétitives 
d'informations sont prises en charge par Nogetel. 

- vous pouvez préparer vos réponses hors-connexion pour éviter de perdre 
du temps à corriger d’éventuelles fautes de frappe ou à remplir de longues 
listes de code d’accès. 

Nogetel utilise Nogescript qui est un éditeur de script. C’est à dire un 
ensemble d’ordres (de commandes) qui seront donnés à Nogetel afin 
d'automatiser certaines procédures (exemple, appeler un service 
télématique, donner un mot de passe, répondre au serveur, mémoriser les 
écrans...) 


Nogetel 



fl 3. d ejj 


pour * i d s 


PI a nuflp t> ur fonction* 


© NOGE Mû _ V x.X 


NOGE TEL 

Pour riroulers. 

i sur 

SUITE 


ENVOI 


CORRECTION 

Eff 

RETOUR 

Ctrl-Eff 

ANNULATION 

Ctrl-* 

CÛNKEXIQrVFINCtrl-c 

GUIOE 

Ctrl-g 

REPETITION 

Ctrl— r 

SOMHAIRÇ 

Ctrl— s 

Hotien éteint 

J À 
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INTERFACE DE COMMANDE A 8 SORTIES 

POUR PSION SERIES 3a 

P ar Patrick DOUGUET(suite du numéro 3) 


artkl : comm r réaKser ae — « ?<»- ><■ ps, on 

l’interface pour réaliser à peu de frais un système domotiquêcoLpl^ZptdtU ‘Z ZrveUkr 

rr “ - ~~~ •* - — <«** — < * ^Zr:z 


f 


iMHT 

I3S [Las 




Sortie à commander (1 à 8 } : 






e panneau de commande du logiciel domotique 



Le listing suivant appelle quelques commentaires : 

CHAUK PHOnLcp^ CmCeme 168 E " eS ° m P ° Ur n0m : ROB °TICS- TV. LAMPE. VENTILO. PORTE FFNFTRE HIFf 

PiSMsSî: 


HIF 
LAON 
VEON 
PON 
STON 
HION 
RAON 
DECR 
LAOF 
VEOF 
POF 
STOF 
HIOF 
RAOF 
RACR 


Bonjour 
J’allume la lampe 
J’allume le ventilateur 
j’ouvre la porte 
je monte le store 
j’allume la chaîne HIFI 
j’allume le chauffage 

l Cu-- 

je décroche le téléphone 
j’éteins la lampe 
je coupe le ventilateur 
je ferme la porte 
je baisse le store 
j'éteins la HIFI 
je coupe le radiateur 
j e raccroche 


( e voca bulaire est donné à titre indicatif et ne dépend que des appareils 

connectes a l'interface. Le logiciel complet (logiciel dessin + icônes et fichiers 
voix) est disponible auprès de l'auteur. 

Pour une exploitation plus intéressante de l'interface parallèle il serait 
pratique d'utiliser les signaux en Input. 

Si vous avez une idée écrivez-moi : 

DO U GUET Patrick - 18 rue P. Salaud 44620 La MONTAGNE 


APP VOX 
TYPE $1003 

ICON "\OPD\ROBOTICS" 

EN DA 

PROC BOUCHE: 

GLOBAL Y, Z,N,E,X,SORTIE&,S(9),A(9) 
GLOBAL ICON%,R%,p%.RET% 

GLOBAL NAME$( 128),NOM$5 1 28),NO$( 1 28) 
LOPEN "PAR:A" 

CLS 

GBORDER $201 
G AT 430,2 :GCLOCK ON.S21 
NAME$="ROBOTIC’S LAB": y=93:Z=40: AFFT: 
GAT 78,65: GSTYLE 0:GFONT 1 : GPRINT "Vers 
1 .0 Par DOUGUET 
Patrick' 1 

GAT 78,67: GPRINT" 18 RUE RSALAUD 44620 
LA MONTAGNE" 

GAT 78.90: GSTYLE 32:GFONT 10: 

GPRI NT" Comm ande d'environnement " 

GE7 

DEFAULTWIN 1 


REM importation des graphiques 
NAME$="TV": Y=0: Z=1 11: AFFI: 
NAME$="LAMPE": Y=60: AFFI: 

N AME$=" VENTILO": Y=I20: AFFT: 
NAME$=" PORTE": Y=I80: AFFI: 

N AME$=" FENETRE": Y=240: AFFI: 
IF DIALOG-O 
BREAK 
END IF 
SORTIE: 

UNTIL SORTIE&-9 
STOP 

EN DP 

PROC SORTIE: 

AT 20, 1 : PRINT "SORTI E" ;SORTIE& 
N=SORTIE&: 

IF N=() 


GOTO ALLUME 
ELSEIF A(N)= I 
GOTO ETEIND 
ENDIF 
ALLUME:: 

AT 20,3:PRINT"J'all urne ";N 
IF N=] : NO$="MIR”: PAR: 
ELSEIF N=2: NO$="LAON": PAR: 
ELSEIF N=3: NO$="VEON": PAR: 
ELSEIF N=4: NO$-"PON" : PAR: 
ELSEIF N=5: NO$="STON": PAR: 
ELSEIF N=6: NOS="HION”: PAR: 
ELSEIF N-7: NO$="RAON": PAR: 
ELSEIF N=8: NO$="DECR": PAR- 
ENDIF 

S(N)=i 

A(N)= ] 

GOTO COMMANDE 
ETEIND:: 


ENREG: 

ENDIF 
AT 20,2: PRINT" 
EF Af N )=0 


A(N)=";A(N) 
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AT 20,3:PRlNTTéteins ";N 
IF N=1 : NO$=”TEOF": PAR 
ELSEIF N=2: NO$="LAOE" 
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X=S{i)+2*S(2)+4*S(3}+8*S(4)+[6 ;ti S(5)+32*S(6) 

+64*S(7)+I28*S(8) 


RET%=CALL($1 F86,UADD( ADDR 
(NOMS).l ),().(>) 


NAME$="HIFI": Y=300: AFFI: 
NAME$= ,, CHAUF’: Y=360: AFFI: 
NAME$="PHONE": Y=420: AFFI: 
rem va chercher fichier voix 
NOS- ’HIF" : PAR: 

DO 

DINIT 

DTEXT ,"Je suis prêt" 

DLONG SORTIE&. "Sortie: ",0.8 
ELSEIF N=3: NO$=”VEOF": PAR 
ELSEIF N=4: NO$="POF” : PAR 
ELSEIF N =5; NO$="STOF': PAR 
ELSEIF N-6: NO$="HIOF": PAR 
ELSEIF N =7: NO$="RAOF': PAR 
ELSEIF N=8: NO$="KACR": PAR 
EN DI F 
St N)=Q 
A(N)=0 

GOTO COMMANDE 
COMMANDE:: 


AT 20.4: PRINT"X=";X 


LPRINTCHRS(X) 

EN DP 

PROC ENREG: 

DINIT 

DTEXT"' ."ROBOTICS LAB",2 
DTEXT /'Enregistrement". $202 


DBUTT0NS"N0N ,, ,%N, ,, OUr\%O: , Suite"T/cS 


-DIALOG 


ii'R%=0:CLS :PRINT"NON": FIN: 
EN DI F 

IFR%=11 l:CLS:PRINT"OUI" :GET 
EN DI F 
PR INT R% 


IF PEEKW(P%) AND I 
RETURN R ETC OR $FFOO 
END IF 
RETURN 
EN DP 

PROC AFFI: 

I CON %=C I .OA D B IT( N A M ES ) 

G USE 1 
GAT Y, Z 

REM pour des icônes au format 24 *2 4. pour un 
autre format 

remplacer les 24 par le nouveau chiffre (48 par ex) 
GCOPY ICON%.0.0.24.24.3 
GCLOSE ICQN% 


EN DP 


RETURN 


REM cette procédure permet de resîitur les fichiers 

sonores 

PROC PAR: 

P%=PEEKW(S I C )+6 
N O M$="* ’ 1 +NOS+C H R St ( )) 


ENDP 
PROC FIN: 

CLS 

ALERTC "C'EST FINI") 
ENDP 


LES LOGICIELS DU PSION 

Voici un petit tour d’horizon de certains logiciels du commerce. 


Psion Sériés l.,2 


\ 





MJ--- 

| 

W.' ' : 


■ ^ % 

:<v a .. 

1 

biimi j .i r.-.'.v.v.viv/X'.w; 




\\ IM INK 

i T "'+*■■ i+ ■. : : ïiv 

h j Mil. : S. : : 


WIBKK’I 


W1NLÏNK : Ce soft vous permet de communiquer directement avec Windows sur PC à partir du Series3/3a muni 
du serial link. il est fourni sur disquette et accompagné d’un petit livret explicatif. A noter que les utilisateurs du 
MAC ne sont pas négligés puisqu'il existe aussi la nouvelle version du PSION LINK pour Mac très semblable. 
WINLINK vous permet d'utiliser le grand écran de votre PC, et d'accéder directement au PSION (mémoire interne 
et SSD), en faisant des copies, des effaçages, des modifications de vos fichiers. Par contre, il n'esl pilotable que 
depuis le PC et non l'inverse. 11 n'est pas possible non plus d'utiliser les lecteurs de disquettes du PC en émulation... 
dommage ! Les données sont transférées jusqu'à 9600 bds avec le Sériés 3 et jusqu'à 19600 sur Sériés 3a. 

En résumé, ce programme devient vite indispensable pour les "accros" de Windows, mais il faut reconnaître qu'il 
simplifie beaucoup les transferts entre David et Goliath ! 


SERIES 3 TOOLS : Une nouvelle version commune pour Sériés 3 et 3a qui comprend 2 logiciels distincts : 

* File manager qui permet de gérer avec beaucoup de facilités et possibilités l’espace mémoire du Psion, ainsi que de gérer vos fichiers 
avec précision. 

* Convert permet lui la conversion de toutes sortes d’éléments ( 150 environ) selon différents pays. Mesures métriques, monaie, tailles, 
nombres (hexa, décimal, binaire), etc... 


'""""Psion Sériés 



PAINT AND COMPOSE : Pro gramme de dessin et de musique, 11 permet de récupérer et de créer tout fichier graphique 
PCX.GJF.PIC, ou BMP. Il peut aussi créer toutes sortes de figures géométriques (carrés, droites, elipses. etc...), et modifier 
toute autre graphique ou dessin. 

Avec la partie musique, on peut composer toute mélodie. Vous écrivez les notes sur une portée qui se fabrique facilement avec 
le logiciel, puis vous l'écoutez, la modifiez, la sauvegardez. 


PAINT & * ( IMPOSE WIDgO 




NOUVEAU ! un fabuleux vivier d'idées ! 
plus de 128 mégas octects de programmes shareware pour votre 

PSION séries 3/3a... 

Nous sommes en mesure de vous proposer ces logiciels sur disquettes PC 1,44MB 
pour un prix modique (voir les prix dans le bon de commande en fin de magazine) 
L'ensemble comprend 428 logiciels et tient sur 88 disquettes ! Pour en obtenir la liste 
exhaustive, envoyez-nous une enveloppe timbrée avec vos coordonnées à : 

MICROCARDS - service Shareware - 42220 BURDIGNES 
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PROGRAMMES pour PSION SERIES 3/3 a 

P ar Vincent BESSETTES 


COURBES SUR PSION SERIES 3 

Cl* program me est une version modifipp 

«S é ri ou s programming on the psion séries 3»" puhUé 

plusieurs courbes sur le même «manhi , r> ' U>US * xnnet Pacer 

Min y et Max v la même vnleunaoiir <H " Cda ' suffit d’entrer pour 

Max y, l’ordinateur calcule ante ^ * C ° Urbe préccVlente <Si Mir, y = 
indiquées). ^ automanquement l’échelle sinon il utilise celle 

PROGRAMME : 

AFP Courbe 
type 0 

icon «\app\courbe pie 

EN DA 
PROC Main: 

global miny,maxy,ox,oy,inx,iny 

global points! 240) 

local newe$(254) StartX,en ^ X,StartX ^ CnC * X ^ 7ln ' , V^’ tTlajt y2 
local choice%,erreur% 
do 

startx 2 =s tartx 
endx2=endx 
miny2=miny 
maxy2=maxy 

dirait 

dtext»»,»equation éditer». $ 1 ()2 
dédit e$,»formula» 
dfloat startx, »start x»,- 1 000, 1 000 
diïoat endx,»end x»,- 1 000, 1000 
dfloat miny,»min y»,, l ()00, 1 000 
diloat maxy,»max y»,- ] 000, 1000 
ehoice%=dialog 

ifchoice%>() 

il miny=maxv 

erreur%=range:(e$, startx, endx) 


miny-v 
maxv-v 
points! 1 )=y 

x=x+inx 

point%=2 

do 

n e w e $ =s urgery $ : (e$, x ) 

onerren'eur2:: 

y=eval(newe$) 

goto suite2:: 

erreur2:: 

onerr off 

busy off 

return I 

suite2:: 

if y<minv 

miny=v 

efseify>maxy 

maxy-y 

end if 

points(point%J=y 

x=x+inx 

point%=point%+ j 

until point%=241 
i ny=79/( maxy-miny) 
busy off 
return 0 

EN DP 

P R OC cal cule:(e$, s tartx .end x) 

local x,y,newe$(254), points 

busy «calculating points» 
inx=(endx -startx )/239 
x=startx 

point?r=l 

do 


erreur%=0 

calcule:(e$,startx,endx) 

end il' 

iferreur%=0 

miny2ominyormaxy2<>maxy f Staitx2<>slartx <>rendx2oendx or 

ax es : ( s tartx ,endx , m iny, maxy ) 

endif 

plot: (e$, startx, endx ) 

endif 

endif 

until choice%=0 
stop 

ENDP 

PROC range: (e$, startx, endx) 

I oc al x , y, ne we$(254), poi n t % 
busy «calculating ranges» 
inx=(endx-startx)/239 
x=s tartx 

n e w e $=s li rgery $ ; ( e $ , x ) 

onerr’ erreur]:; 

y-eva!(newe$) 

goto suite!:: 

erreur 1:; 

onerr off 

busy off 

return 1 

suite!:; 


ne we$=surgery$:( C $,x ) 

onerr erreur3:: 

y=eval(newe$) 

goto suite3:: 

erreur3:: 

onerr off 

v- 1 0000 

suite3:; 

points ( poi nt%)=v 

■r - 

x~x+inx 

point%=point%+| 
until point Cr =241 
iny=79/( maxy-miny) 
busy off 

ENDP 

PROC axcs:( startx . e n d x. ni i ny,maxy ) 
els 

ox=-start/inx 

oy=79+miny*iny 

if ox<=239 and ox>=0 
gat ox,0 
glineto ox,79 

endif 

i f o y =<79 and o; 
gat O.ov 
glineto 239. oy 

ENDP “ dif 

PROC plot:(e$,starix,cndx) 

local px%,y.newe$(254),choice%x-ontV 

busy «plotting...» 
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conl%=() 


PROGRAMMES POUR PSION SERIES 3 

ggmode 0 
ds 

print «nom fichier ?»; 
in pui nom S 
if exist(nom$) 


px%=l 

do 

y=oy-points( px % )*in y 
if y <=79 and y>=0 
if cont%=l 

glineto px%- 1 ,y 
eise 

gat px%- 1 ,y 
glineby 0,0 

endif 

cont%=l 


busv «chargement ...»,0 
idd%=gidentitv 

b / 

id%=gloadbit(nom$) 
l%=awidth 
h % =gheight 
gusc idd% 
gvisible off 
gels 

gat 161,0 

geopy id%,0,0, 1 %,h%,0 
gclose id% 

c 




cont%=0 


endif 

px%=px%+ 1 

until px%=241 
busv off 


cross: (px%-l,oy-points(px%)*iny) 

choice%=get 

while choice%<>27 

cross: (px%- 1 ,oy-points(px%)*iny) 
if choice%=258 and px%<240 
px%=px%+l 

elseif choice% =259 and px%>] 
px%=px%- 1 

endif 


do 


j%=0 

do 


gpeekline idd%,i%+ 1 6 1 , j%.d%( ), 1 
if (d%( 1 )and 1 )=1 

incarre:(i%j%) 

endif 

j%=j%+l 

until j%>=h% 


until Wc>- \ °k 
busv off 

mC 

gvisible on 

else 

do 


giprint fix$(startx+(px%-l)*inx,3,30)+» ,«+fix$( points 

{px%),3,30) 

cross: (px%- 1 ,oy-points(px% )*iny) 
choice%=get 

c 

endwh 

cross :(px%- 1 ,oy-points(px%)*iny) 

EN DP 


print «largeur^»; 
inpul 1% 

until 1 %>0 and 1%<80 
do 

print «hauteur^»; 
inpul h% 

until h%>0 and h%<40 


PROC cross:(cx%,cy) 
local cy2 
ggmode 2 
cy2=ey 
if cy2>79 

cy2=79 
elseif cy2<0 
cy2=0 

endi f 

gat cx%,cv 2-2 

îm~- V 

glineto cx%,cy2+3 
gat cx%-2,cy2 
glineto cx%,cy2 
gat cx%+l ,cy2 
glineto ex %+3,cv 2 


ggmode 0 

EN DP 

DESSIN SUR PSION SERIES 3 

Entrez le nom du fichier, si celui-ci n'existe pas, P ordinateur vous demande 
la largeur et la hauteur du dessin à tracer. Ensuite apparait une fenêtre à 
gauche de l'écran avec un curseur clignotant et à droite vous pouvez voir 
votre dessin en taille réelle. Déplacez le curseur avec les flèches, inversez 
la couleur du pixel avec Enter et quittez en sauvegardant avec Esc. 
PROGRAMME : 

A PP dessin 

icon»\app\dessin.pic» 


PROC dessin: 

local c % , i % ,j % ,1 % , h % , i i% ,j j % , no m$ ( 1 28),id%,idd%d%( 1 ) 


28 


gels 

endif 
gat 0,0 

g box l%*2+2,h%*2+2 

i%=0 


j%=0 
ggmode 2 



c%=kev 

1 i VE =ï % 

jjV=)7c 

invcaire:(ii%,jj%) 

if c%=259 and i%>0 

1 

endif 

if c%=258 and i%<l%-l 
i%=i%+l 

endif 

if c%=256 and j%>() 
)%=}%- \ 

endif 

if c%=257 and j%<h%-l 
j%=j%+l 

endif 

if c%=13 

i n vc aire : ( i i % , j j % ) 
gat 161+ii%,jj% 
glineby 0,0 

endif 
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invcame:(ii%,jj%) 

until c%-27 
ggmode 0 
gat 1 6 J ,0 

tra P gsavebit nomS, i % h% 

EN DP ' 

PROC i n vcarre : (x %, y % ) 

gat x9fc'''2+] ,y% i ‘" : 2 + 1 

gi'ill 2.2,2 

ENDP 

OISC SUR PSION SERIES 3 

Entrez le nom du CD à copier sur cassette iv r 

la longueur totale du CD et vous demande d' 0rd,nat ^ ur Vous clique alors 
que vous désirez utiliser. Le nrom-im a,0ngUcurde la cassette 

copier sur les faces A et B de la cassetM* )? US nRllqLIC a,ors ,cs plages à 
^ base de données ^ 

CD.DBF et se trouver dans le répertoire \DAT° Fil e H CD d ° U S ° nommer 

EX?MPLE CD ‘ AUTEUR - DUREE L’ES PLAGES° lt ° ^ * W 

NOM 'TRUC 

AU ™R : machin 

S. U ne d ^e: t tr d r N m :ZZeI ESSEC ° NDRS ' 

PROGRAMME P ge ne sera P as copiée sur cassette. 

A PP Disc 

type 0 

icon «\app\disc.pic» 

EN DA 
PROC dise: 

local „oraî(255), b $(255),c$(255),d$ 

' ' - t -aS( 1 0 J„ SO ,la , d , tt ,„ m , kn% a(30) 

prinl «NOM DU CD : « b ‘ t O0).M>%(30),ab%(30)j%,irt6, < i ( i 
inputnomS 

open «\dat\cd .d bf», a ,al $ s a2$,a3 $ 

it find(nom$)=0 

goto ntrouv 

endif 

b$=a.a3$ 

d%=loc(b$,»,»j 

whiled%>() 

c$=sJeft$fb$,d%-l) 
b$=right$(b$,len(b$)-d % ) 

ajout:(cS) 

d%=ioc(b$,»,») 

endwh 

ajout:(b$) 

dose 

n%=j% 

pnm « TEMPS TOTAL = «;int(lg) : » M„ «,im((Ig-mtf ( , g)) » 

Print «LONGUEUR CASSETTE = «- 60+0 - 5)> 8>> 

input t <<> 

t=mtf(t)+((tdntf(t))*I00)/60 
Print «RECHERCHE RESTE Min (o/n) a 

input a$ ' • ' 

a$=upper$(a$) 
if a$-»N» 

la=(t-Jg)/2 


d=t/2 

tt— 1/2 

r^-r' 


busy off 
cls 

print «FACE A- » 

i %~ 1 

while i%<=nf% 

print ab%(bb%(i%)) ;>>5 «• 

i %=i %+ 1 

endwh 

prinl chr$(8);ch, ($)8;,> « 

pnm «TEMPS RESTANT = «:i„t(d,;» Mn « i 



60+.05) 



print 

Print «FACE B;» 
d=tt 

ii%=0 
j%=l 

whilej%<= n % 

tr%^î 

i %~ 1 

while i%<=nf% 

ifbb%(i%) =J -% 
tr%=0 
i%=nf% 

endif 

endwh 
if tr c Æ~ j 

ii%=ii%+l 
prinl ab%(j%);», 
d=d- 

endif 

J f T=j%+i 

endwh 

print chr$(8);chr$(8);» « 

prim «TEMPS RESTANT = «;int(d)> Mn «;int ( ( d -intf( 

print *60+0.5 

prim «APPUYEZ SUR UNE TOUCHE POUR SORTIR 

stop 

ntrouv:: 

close 

print»CD NON TROUVE Üt» 

print 

prim «APPUYEZ SUR UNE TOUCHE POUR SORTIR, 
stop 

ENDP 

PROC ajout:(n$) 
ii%=ii%+j 

ü right$(n$, 1 )<>»N» 

=i%+! 




la-0.084 

endif 

busy «JE CALCULE '» 2 

i%=0 


ab%(i%)=ü% 

a(i%)=eval(n$) 

endif 

ENDP 

PROC calcul: 

i%=i% + I 

ifi%>] 

b c /c(i c /c)-b%(\%. ] ) 
else 
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b%(i%)=0 

ENDP 

whilej%<=nf% 

endif 


PROC fin 


bb%{j % ) =b %(j % ) 

do 


i f sot t 


+ 

g 

li 


b%( i%)=b%( i %)+ 1 

dd=lt-so+a(b%(i%)) 

endwh 



so o+a(b % ( i % ) ) 

kn c /c-\%-\ 

if d<=l: 

a 


if so>=U or b%(i%)=n% 

elsc 


j%= 1 


li n : 

dd=ü-so 


while j%<=n% 


else 

?*r 

ft 

rO- 


b%(j%)~n% 


calcul: 

endif 


}%=)%■+] 


endif 

if dd<d 


endwh 


so=so-a(b%(i%)) 

d=dd 

endif 


until b%(i%)>=n% 

nf%=kn% 

endif 


i%=i9< 

5-1 

j%= 1 

ENDP 
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CLUB SERIES 3 

54, rue du Générai LECLERC - 94220 CHARENTON - LE » PONT 

TEL : (1) 40 04 92 19 FAX : (1) 43 07 25 96 


POSHELIO 

par Hubert BLAZEJEWSKI 


Amis astronomes à vos PSION sériés 3/3a 

Voici un programme utilisant les ressources graphiques de la machine et permettant de visualiser la position 
héliocentrique des planètes par rapport au soleil : d’où le nom : «POSHELIO» 

Seules sont prises en compte la Terre , et les cinq planètes visibles à l’oeil nu; Mercure , Vénus , Mars, Jupiter et Saturne. 
Rien n’empêche d’ajouter Neptune, Uranus et Pluton , mais l’écran du Series3 est petit. Cela serait sans doute mieux 

sur le Sériés 3a. 


App Poshelio 
Type 3 

Icon «\opd\saturnc.pic» 

Enda 

Proc Ecran: 
local ch% 

gstyle 9 :gat 4,25 
gprintb «P O S H E L I O», 162,3 
gai 35,9 : gin vert 98,18 
gstyle 9 :gat 4,45 

gprintb «Position héliocentrique». 159,3 
gat 4,65 

gprintb «des planètes», 1 59,3 

gat 4,75 :gstyle 1 

gprintb «H.Blaze 6.94», 233. 1 

gat 1,1 :gbox 238,78 

gat 3,3 ;gbox 234,74 

pause - 1 0 

dinit 

dposition 1,0 

dtext «»,» Choix ?»,$302 

dtext «»,»Calculs «,$402 

dtext «»,» Mémo/Info «,$402 

ch%=dialog 

cls 

ifch%=2 

heüo: 

elseif ch%=3 

mémo: 

endîf 

endp 

PROC mémo: 


local t% 

cls 

do 


munit 

me ard « 1 nfos»,» A propos de . , . », % À ,»Et aprè s '?», % E, » 

Par qui ?»,%P,»Bibliothèque»,% B,»Calculs et VisiL»,%C,»Quitter»,%Q 

me ard « Mémo planètes» , » Marc u re » , % R,» Ven us», % V,»Terre» , 

%T,» M ars », % M , » J u piler» ,% J ,»Sat u rne »,%S 
mcard«Moded' emploi», »Fichiers»,%F,»Echelles»,%H,» 

A ngles» . %N , » Bugs», %G 

%^menu 


if l% and 5 1 2 :t%=t%ô 1 2 :endif 
if t%=070 or t%= ! 02 
dinit 

dtext <*»,»[ J ste des fichiers nécessaires», S2 

dtext « >\»\A PPVPoshe 1 îo >opa» ,$2 

dtext «»,»\OPD\Saturne.pic «,$2 

dtext «»,»\OPD\Orbites + pic «,$2 

dtext «»,» Liste des fichiers sources «,$2 

dtex i « » oAOPLVPoshelio .opl » ,$2 

dtext « » , »\0 P LAOrb i te s , opl «SI 

dialog 

endîf 

ift%=072 ort%=104 
dinit 

dtext «»,» Facteur d'échelle graphique» ,$2 
d te x t « » , » 1 po u r M ercure, Ve n us, Terre et M a r s », $ 2 
dtext «»,»2 fois pour Jupiter», $2 
dtext «»,»3 fois pour Saturne», $2 

dialog 


if t%=078ort%=) 10 
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POSHELIO 


dinit 


dtcxt «»,»Les longitudes sont données en degrés.». $2 
dtext «»,»dans le sens trigonométrique à partir», $2 
dtext «»,»du signe (î) qui représente le point vemal»,$2 
dtext «», «correspondant à l’équinoxe de printemps » S2 

dîalosi 

end il 

ift%=071 ort%=103 

dinit 

dtext «»,»Pas de contrôle d’erreurs. »,$2 
dtext «».»Date et heure système sont prises en».$2 
dtext «», «compte dans l'écran de départ. St vous»,$2 
dtext «».»en changez, n’indiquez rien d'illicite. ».$2 

dialog 

t.- 

endil' 

if t%=082 or r%= 1 1 4 


dtext «»,»Mercure»,S ! 00 

dtext «»,»Dist. moy, du soleil : 58,0 M.Km» 

dtext «»,»E>iam. équatorial : 4878 Km» 

dtext «»,»RévoIution sidérale : 88 jours» 

dtext «», «Rotation : 58,65 jours» 

dtext «»,» Vitesse moy./orbite : 50,0 Km/sec.» 

dtext «»,»lnclin,/écliptique ; 7 deg.» 


il t%=086 or t%= 1 1 8 
dinit 

dtext «»,» Vénus»,S 1 00 

dtext «»,»Dist. moy. du soleil : 107,9 M.Km» 

dtext «»,»Diam. équatorial : 12104 Km» 

dtext «», «Révolution sidérale ; 224.7 jours» 

dtext «», «Rotation : 243,6 tours» 

dtext «»,» Vitesse moy./orbite : 34.9 Km/sec.» 

dtext «»,»Inclin./éelipiique : 3.4 des.» 

dialog 
end i f 

if t%=084 or t %= \ 16 
dinit 

dtext «».»Terre»,S 100 

dtext «»,»Dist. moy. du soleil : 149,6 M.Km» 
dtext «»,»Diam. équatorial : 12757 Km» 
dtext «», «Révolution sidérale ; 365,26 jours» 
dtext «»,» Rotation : 0.9973 jours» 
dtext «»,» Vitesse moy./orbite : 29.9 Knt/sci 
dtext «»,»l[ic!in./écliptique : Odeg.» 


dial oo 


te.» 


dialo 

endif 


ÇJ 


if t%=077 or i%= | ()9 
dinit 

dtext «»,»Mars»,$100 

dtext «»,»Dist. moy. du soleil : 227,7 M.Km» 
dtext «»,»Diam. équatorial : 6793 Km» 
dtext «», «Révolution sidérale : 687,0 jours» 
dtext «»,»Rotution : 1,026 jours» 
dtext «»,» Vitesse moy./orbite : 23.5 Km/scc.» 
dtext «»,» Inci ïn./cci iptique : 1.8 deg.» 

dial os: 


» 


il t%=074 or t%= 1 06 

dinit 

dtext «»,» Jupiter» ,$100 
dtext «»,»Dist. moy. du soleil : 777,9 M.Km» 
dtext <o>,»Diam, équatorial : 142803 Km» 
dtext «». «Révolution sidérale : 1 1.86 années 
dtext «», «Rotation : 0.4 ! jour» 

dtext «»,» Vitesse moy./orbite : 1 2,9 Km/see.» 
dtext «»,»lnclin./édiptique : 1 ,3 deg.» 

dialog 

endif 

if t%=()83 or t%=115 


dtext «»>»Satume»>$ 1 00 

dtext «»,»Dist. moy. du soleil : 1427,0 M.Km» 

dtext «».»Diam. équatorial : 120002 Km» 


dtext ««.«Révolution sidérale : 29.46 années « 
dtext «». «Rotation ; 0.427 jour» 
dtext «»,» Vitesse moy./orbite : 9.7 Km/sec.» 
dtext «»,»Inclin, /écliptique : 2.5 deg.» 

dialog 

endif 

if t%=081 or t%=l 13 
retum 

endif 

if t%=065 or t%=097 
dinit 

dtext «»,»Ce programme permet de calculer et de». $2 
dtext «». «visualiser la position des planètes du», $2 
dtext «», «système solaire par rapport au soleil.», $2 
dtext «», «Seules sont prises en compte la Terre.», $2 
dtext «»,»et les cinq planètes visibles à l’oeil nu,», $2 

dtext «»,»Mercure, Vénus, Mars, Jupiter et Saturne.’». S 


dialog 
endif 
if x.%- 

dinit 


L 


or trié — 101 


dtext «»,»j'ai d’autres projets en préparation.», $2 
dtext ««.«Carte du ciel.., Satellites de Jupiter., ,».$2 
dtext «», «Phases de la Lune... Horloge Astro...»,$2 
dtext «»,»Mais cela demande beaucoup de temps.. ,».$2 
dtext «». «Alors. Quand ?... Va savoir. Charles !»,$2 ’ 
dlext «», «Aujourd’hui on programme comme on aime » 52 

dialog 

endif 

if t%-080 or t%= i 1 2 
dinit 

dtext «»,»1 luhert Blazejewski»,S2 

dtext «»,»536 av de Chah lion». X2 

dlext «», «73000 * CHAMBERY», $2 

dtext «»,»Tel: 79.62.58.46 le soir jusqu’à 2 i h».$2 

dtext «»,»( p as pj us tard, s. v.p. )»,$2 

dialog 

endif 

ü i%=066 or tÇJ =098 
dinii 

dtext «»,» Sources issues des ouvrages suivants.»,$2 
drext «»,»* * * * *»S2 

dtext «»,» Astronomie & Ordinateurs», $2 
dtext «».»de Guy Sérane (Ed. Dunod)»,$2 
dtext «»,»* * * * ^»,$2 

dtext «»,»C aïeul Astronomique pour Arnatcurs»,$2 
dtext «».»de Serge Bouiges (Ed. Masson)». $2 

dialog 

endif 

umil t%=067 or trié =099 

helio: 

entlp 

proc helio: 

global jo&,mo&.an&,h&.m&,jdls% 
g lobai H.M.N.i .T, A RT. LOT, LOP 

global LOIS > K ■ L M . K A . H A. P, Q, LP, E, I O, AM, A E, I . AV, API .. LA LO 
global I%,h%.id/r,choix%.y,a,b,n,c.d,P$( ! ) 

els :gat 0.0 

jo&=day :mo&=month :an&=year 
h&=hour :m&-minute 

dinit 

dtext «».»Ephémérides Planétaires»,? i 02 

dtext «»,»' Valable de 1901 à 2099 (Base J 2000.0)», $202 
dlongjo&, «Jour». 1,31 

dion g mo&.»Mois»,1.12 
dlong an&, «Année», 1901,2099 
dlong h&,» Heures», 0,23 
d 1 ong m& ,»M i nut e s», 0.5 9 
if dialog-0 

retum 

endif 

H=h& 

M=m& 

jdls%=dow(jo&,mo&,an&) 
g border $20 1 .240,; 
gat 10, 1 2 rgstvle 3 
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gprint «Position Hëliocentrique» 
gat 45,22 :gstyle 3 
gprint «des Planètes» :gstyle 0 
gat 8,35 : g style 16 

gprint dayname$(jdls%),jo&,»/»,mo&,»/»,an& 
gat 35,45 

gprint «à»,h&,»h»,m& 

H=(H+M/60)/24 
NJ=days(jo&,mo&,an&) 
T=-(36524.5-(NJ+H))/365250 
REM ** Coord. Hélio. Terre ** 

LM=1 .7534703 14+6283,3 1 9663*T+ 

5 . 300 1 8 1 9E-4*T* *2 

KA=.003740816-.0047 93 106*T+ .00028 1 1 28 

HA=.016284477-.00 1 532379*T-.000720 1 7 1 

K=180/PI 
LP=atan(HA/K.A) 
if KA<0 

LP=LP+P1 

endif 

E=abs(HA/sin(LP)) 

AM=LM-LP 

AE=AM 

1=1 

do 

AE=AM+E*sin(AE) 

1 = 1+ 1 

until 1=5 

AV=2*atan(sqr(( l+E)/( 1 -E))*tan( AE/2)} 

ART-LP+AV 

LO=ART 

gat 8,55 :gstyle 3 

gprint «Terre» tgstyle 0 

gat 8,65 

gprint «Lat. Hélio=»,fix$(0*K,2, 1 0),»deg.» 
gat 8,75 
LO=LO*K 
if LO<0 

LO=LO+36Ü 

endif 

LOT=LO 

gprint «Lon. Hélio=»,fix$(LOT.2,10),»deg.» 
disait 

dposition 1,0 
dtext «»,» Choix ?»,S302 
dtext «»,»Toutes»,$402 
dtext «»,» Mercure», $402 
dtext «»,» Vénus», $402 
dtext «»,»Mars»,$402 
dtext «»,» Jupiter», $402 
dtext «»,» Saturne», $402 
choix %=dialog 
cls 

if choix%=2 
y=31 

MERCURE: 

VENUS: 

MARS: 

JUPITER: 

SATURNE: 
elseif choix%=3 
y=3 1 

MERCURE: 
elseil choix%=4 
y=40 
VENUS: 
elseif choix%=5 
y=49 
MARS: 


POSHELIO 


elseif choix%=6 
y=58 

JUPITER: 
elseif choix%=7 
y =67 

SATURNE: 

endif 

beep 5,300 

busy «»»,3, 1 :get :busy off 
helio: 

endp 

proc CALCUL: 

K= 1 80/PI 
LP=atan(HA/KA) 
if KA<0 

LP=LP+PI 

endif 

E=abs(HA/sin(LP)) 

LON=atan(P/Q) 
if Q<() 

LON=LON+PI 

endif 

10=2 * as in( P/s in( LON ) ) 

AM=LM-LP 

AE=AM 

1=1 

du 

AE=AM+E*sin(AE) 

1 = 1+1 

until 1=5 

AV=2*atan(sqr{( l+E)/(l-E))*tan(AE/2>) 
APL=LP+AV -LON 
LA=asin(sin(10)*sin(APL)) 

LO=a co s(co s( APL)/cos(L A) }+LON 
if LA<0 

LO=2*PI-LO+2*LON 

endif 
LOP=LO 

gat 0,0 :gborder $201,240,80 igstyle 2 
gat 10,10 :gstyle l :gprint « HELIO « 

:gstyle 0 

gat 54,10 :gprintb « Lat(deg) «,54,3 
gat 102,10 igprintb « Lon(deg) «.54.3 
:gstyle 0 

gat 4,22 tgprintb «o»,6.3 
gat 15,22 :gprintb «Terre»,42,2 
gat 4,31 :gprintb « »,6,3 
gat 15,31 :gprintb «Mercure», 42, 2 
gat 4,42 :gprintb « ,J »,6,3 
gat 15.40 :gprintb «Vénus», 42, 2 
gai 4.49 :gprintb «n»,6,3 
gat 15,49 :gprintb «Mars»,42.2 
gat 4,58 :gpriutb «©»,6,3 
gat 15,58 :gprintb «Jupiter» ,42.2 
gat 4,67 :gprintb «0»,6,3 
gat 15,67 :gprintb «Saturne» ,42,2 
gat 12,77 :gprinl «(Le»,jo&,»/»,mo&,»/», 
an&,»à»,h&,»h )» 

gai 58,22 :gprintbfix$(O*K,0,I0),36,3 
gai 108,22 :gprintb fix$(LOT,2.10),36, 1 
id%=gloadbit («Orbites .pic» ) 
l%=gwidlh 

■i— - 

h%=gheight 
«use 1 
gat 0,0 

gcopv id%, 0,0,1% di%.0 
«close id% 
gat 194,40 

gmove 22.5*cos(LOT/K ),-22.5*sin( LOT/K)* 
gmove -2,3 :gprint «o» 
gat 58,y :gprintb fix$(LA*K,2,10).36,I 
if LOP>2*PI 

LOP=LOP-2*Pl 

endif 

gat 108, y :gprinrbfix$(LOP*K,2.10U6.I 
b=0 


gat 194.40 

gmove a*cos{LOP),-a*sin(LOP)*.89 
gmove c,d :gprint PS 
c=0 :d=0 :LOP=0 :a=0 
v=v+9 

u' ■' 

endp 

proc MERCURE: 

a=9 :n=6 :c=-l :d=3 :P$=»*» 

LM=4. 402608 842+2608 8. 14707*1+ 
5,3E-4*T**2 

KA=.044660598-.054483487*T-.0018 

ï {: O 

HA=,2007233 ! 4+.0 12331 538*T- 
,00733*T**2 

P=.045635505+.008527127*T- .00095* 

T* H: 2 

Q=.040615634-.009342389*T-.00092* 

j>m<2 

CALCUL: 

endp 

proc VENUS: 

a=16 :n=8 :c=-I :d=6 :P$=»°» 

LM=3. 1761 46696+ 1 02 1 3.52942*4+ 

5.42 1 0556E-4*T* *2 

KA=- .00449282 1 -.000923 1 35*T+ 

.000225036*1**2 

HA=. 005066847-, 00 1 45694 1 *T- 

.00005 8477 *T**2 

Q= .006824 101 -.0045 1 2949*T- 

.0001 1843*T**2 

P=.028822858+,00 1 1 58456*T- 

.000349201 *T**2 

CALCUL: 

endp 

proc MARS: 

a=34 :n=12 :c=-2 :d=3 :P$=»a» 

LM=6. 20 34809 1 3+3340.856278*T+ 

5 .427484 3E-4*T**2 
KA= .085 3 65 603+ .0 î 3 005Q53*T+ 
,004287376*T**2 
HA=-.037899732+.02706276*T+ 
.002245 677 *T** 2 
Q=,0 1 0470426- .00 1 68943 1 *T- 
.00008281 l*T* *2 
P=.0 1 2284493+ .00 1371 039*T- 
.000107356*4**2 
CALCUL: 


endp 


89 


proc JUPITER: 

n=l :a=41 :c=-3 :d=4 :PS=»’w» 
LM=.5595464972+529.9348075*T+ 
3.9049899E-4*T**2 
KA= .0469857 2 1 -.(K) 1 796949*1’- 
.0020421 37 *T**2 
H A=,0 1 2003857+.0 1 3628604*T+ 

. 000042602 *T* *2 

Q=-,0020656 1 1 -.00 1 905724*1 + 

.0001 08273 *T* *2 

P=.0 1 1 1 83772-.00083973 1 *T- 

.000159489*T**2 

CALCUL: 

endp 

proc SATURNE: 

n=I :a=4I :c=-2 :d=3 :P$=»0» 

LM=.8740 1 67563+2 1 3 .5429562*4+ 

9.0673442E-4*T**2 

KA=-.002960036-,01 88 1 3 1 38*T+ 

.001283385*4**2 

HA=.055429643-. 00447777 1 *T- 

.003261143*4**2 

Q=-,0087 1 7474-.0029 14 1 83*T+ 

.0001 5735 1*T**2 

P- 01989 1473-.00 1 633044*T- 

.000223323*T**2 

CALCUL: 

endp 
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LES CHIFFRES ROMAINS EN FORTH 

par M. PETREMANN 


Les calculatrices programmables sont certes très mites pour de nombreux calculs forts complexes Paradoxalement 

-r*. .«*. 

langage FORTH sur tout système et n.,eln,.Vn ,nü i , A * nnx est ut Iisablc pat I OU fES les versions du 


Lingsiec FOR! H sur tout système et quelqu’en soit iai 
: TRAITEMENT ( n tv) 

DUP 

1000 IF .» M» 

1000- EX I I 

TH EN 

DUP 

900 >= IF .» CM» 

900- EXIT 

TH EN 

DUP 

500 >= IF .» D» 

500 - EXIT 

THEN 

DUP 

400 >“ IF .» CD» 

400 - EXIT 

TH EN 

DUP 

100 >= IF ,»C» 

100- EXIT 

THEN 

DUP 

90 >= IF .» XC» 

90- EXIT 

THEN 

DUP 

50 IF .» L» 

50- EXIT 

THEN 

DUP 

40 >= IF .» XL» 

40- EXIT 

THEN 

DUP 

10 >= IF .» X» 

10- EXIT 

THEN 

DUP 

9 >= IF .» IX» 

9- EXIT 

THEN 

DUP 

£ 

> 

» 

X 

h— i 

IJ 

A 

»n 

5 - EXIT 

TI IEN 

DUP 

4 >= IF .» IV» 

4- EXIT 

TI I EN 

DUP 

4 

4 . 

1 >— JF t » I» 

1 - EXIT 

THEN 


: ROMAIN ( n — ) 

BEGIN- 

TRAITEMENT 
DUP 0= 

INI IL 
DROP ; 

sortie forcée de a nmopHnrp tp 4rTn\/iiTM r r - “ c 1 caccuicc, puis Je moi tXl 1 provoque n 

■rt-AlF An I d ‘ , bMtN ' apres avoir décrémenté la valeur située au sommet de la pile A chaque étape de TR M 

à assuiwîa quant^n^tdon cTobiets *Pmtr!d^srtuemhrr^dl^mLoude^ r t ^ 5S «ri^ues. O^cWffies seraient tou. juste 

boulier (réft Polybc 2 10-128 av. J.C.). U.s chiffe mmains u-éuden. ,^ïe îé^a.XX^cull abaqUeS - dU 

La complexité des chiffres romains résulte: calculs. 

- de remploi de signes distinctifs pour chaque rang multiple de cinq et de dix : V pour S X pour 10 L pour 50 etc 

P^ Z^cTc, !S' T' Ort"ë n :r;nn" ^e^O^L' ,e Un Ch,m " de , Va,CUr Sllp ' iri — S ’ C11 -t— chT: IV pour . ôté de 5. XI. 
système à numération de position vers un svsiènnc archaïque ' 8ISemeM mécanisme de '«n^ription depuis un 
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HP RAM Viewer 

par Eric TROUSSET 



HP RAM Viewer version LO a été entièrement écrit en langage machine. Ce programme a été conçu pour les HP 48 gl 
gx. Le but du programme est d’afficher le contenu de la mémoire en copiant 34*56 quartets dont le premier est pointé 
par DI sur le contenu de P image de l’écran , 

:: On peut faire défiler le contenu de la mémoire sur l’écran en appuyant sur les touches de menu. 

(Les touches de menu : flèche droite et I lèche gauche incrémentent et décrémentent DI de 1 alors que les flèches haut et bas inerémentent et décrémen- 
tent DI de 34*(rapidité+l), en plus clair de rapidité# 1 lignes à l’écran) 

* L’adresse pointée par DI est inscrite dans la barre des menus ainsi que la valeur de la rapidité quand on Sa modifie. 

* On peut augmenter la rapidité de défilement vertical en appuyant sur les touches + et - de la machine ( En actionnant ces touches, la vitesse s'affiche 
à la place de l’adresse pointée par D 1 , plus la valeur sera grande plus le défilement sera rapide). 

* L'affichage s'exécute à chaque boucle afin que l'on puisse observer les modifications qui s’effectuent en RAM. 


* HPRAM001.ÀSM: 

Chaîne à recopier sans espace ni saut de ligne afin de rassembler avec n’importe quel assembleur, par exemple ASS publié dans la HP48s/sx/g/gx EN PRHPÀ: 

« DUP SIZE 2 / .5 + IP «G RGB I « SWAP + « « + SWAP + OB.IX #401 7h 
SYS E VAL # 56 B 6 h SYSEVAL DROP NEWOB » 

La commande BYTES sur la chai ne doit donner : ‘![ 2: # BF87h 

s 1: 372! 

* HPRAM.ASM: 

Fichier contenant le source assemblable avec ASM PC (cf:LES SECRETS DH i .A I IP48g/gx) ainsi que les commentaires. 

Cf%HP:T(i)A(R)E(.>; 

«CCD20F7E008FB976084FAF2 1 0CE6 1 0B8H0 1 IOFFFFFFFPFFFFFFFPFFFFFFFFFFFFFFFF70 1 000070000C ) Ü0007000007000070000400040020800800000A2 
9E462040020010000Ü2(X)200U)800000AA48AA204002083QOO()OF0020C30800000A9D4E6205 I02045000(X)200200I0800000AA42AA20F,0()2ÜO 100000400208 
00800000 A29EAA20400200 1 000 1 000070000C 1 00007000007 0000700004007 1 358F85C 1 0340 1 0001537 i 507 17F 1701 6F ! 60CE59E8E06004A AA406444E0E8E2 
E0E8E8EOAAE88DE2E8E0C2EAE0E8422OEAEAF0FAH8FO4AI :AA06A6A60( ' 2 2 2 C06 A A A 60 E 2 E2 E0 F2 B2 20 A F207 i 091F0(XM)8 1 37 1 35 10A8HBC20 1 1 A 1 357 
40066 EF808224003200 1 80 i 8F06 i 1 00E3293A808CA94080822 1 003200 1 80 1 8F06 1 ! OOF3293AC2 1 1 BH6D5 1 1 C AF0C0CE5 B F j 37C2 1 088E9920 1181 350 1 808222 
003200180! 81 061 100E3293AC2 11 BF6D5 1 ICAF0C0CE5BF 1 37H2 i 088FF420 1 1 813501808220! 034200(H)8018F06U00E3293A52 170! 37 1 088126 1 201 18 135340 
0400CE5DFÜ 1 808220 1 03200 1 80 1 8F06 1 1 OOF3293 A 52 1 C0 1 37 1 088E3D ! 0 1 1 K 1 35340041 K )CF5DF0 1 80822 1 0032 1 0080 1 8 F< )6 1 1 OOE3293 AF3 ! 1 CH65808CD2 1 0 1 
0C 1 371 0A 1 IC1088EC710I l A 1 35 1 1 41003400020CE5DFÜ 180822 1003220080 18F061 100E3293AF3 1 I.CCE5BA8CODOOIOC137 10A i iC I088EF1 101 1A1351 1410 
03400020CE5DFO 1 808224003204080 1 8F06 ! 1 00H3293AD ! 1 1 B80824000008BFBOCE ! 0B676080822 1 003204080 1 8F06 1 1 0OE3293AD 1 80824 1 2000 1 I B8BA B0F 
6 1 0B6C2Ü808220 1 0320 1 080 1 8F06 ! 1 00E3293A0D8F34 1 5< )0 1 346700081 • 1 3C 1 0AF0 1 5( 17 1 6F 1 60CF53Ï •'() 1 347 3000D58F 1 3C 1 0 il B 1530 1 5001 60 1 7( >CE5FE 1 i B80 
824 1 2000 E A 1 36C2 1 36CD53D0 1 1 I0D224A8620F6F6F6F6C6DAC6C2 1 1 1 C2 1 358F85C 1 080824F4000 1 36C2 1 363440000 1 530 1 500 1 70 1 6F 1 6F 1 63CE59E 1 1 01)2 
23A8620F6F6F6C6DAC6C2 I11C2 1 358F85C 1 08082405000 1 36C2 1 363440000 i 530 ! 500170 1 6E1 6E 1 630.5961)222 1 1 0A8620F6F6C6DAC6C2 111C21 358F85C 
1080824 150001 36C2 13634400001 5301500Î 701 6EI 6E 163CE59ED22 1 1 10A8620F6C6DAC6C2 ) 1 1C21 358F85C 1 08082425000 i 36C2 i 363440000 1 5301500 1 701 
6F 1 6F 1 63CE59ED2 1 10A86C6DAC6C21 î 1C21358F85C 108082435000 136C2 1363440000 1530 1500 1701 6E16E163CE59E0 1 137 1 OA8E07 70002080 A8408000( K) 
0000OOOOOO0000O000000A04004210000()0000O0000000000O00(){K)080A8()090000000O00()O00000{M)0000(X)2A04A8420(X)000O00()O000{)()000(MK)()00()02848002 
9000000000000000000000000028802 8408000G(}000000000(XK)000000002 A 84 A842900000000000000( )()( XXXX)005 B 7 BFEB FC97006002C 1701 (XXMMXX)OOOOOOO 
69D6BD6BD00 1 0036BD8 IOOOOOOOOOOOOOOF.8 1 6046BD0070836BDC 1 OOOOOOOOOOOOB6787E î 2EB7088003C3FA 1 0(X)OO()(XX)000OOF8 1 60 1 6B 300700303CE300 
00000000000069D6BD6B5004003C 1781 0000000000005 77BFEBF6B D003087C038 1 OOOOOOOOOOOOOOOOOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOtXXJOQOOOOOOOOOO 


0000000000000000000000000000000()E97E37EB8E370CDDDD100t)0()()00()0(X)0002A828C2882AC0882A80000000{XXXX)00002A82802898800052A80000000 

OOOOOOOOOA96A17A9A8070022A800000000000000002822082888080022A800000000(XX)00(X)02842892888890022A8000000(X)000000007C9 

E37EB8C17007Ci700000000000000000ÜOOOOOOOOOO(X)00000000000000000(X)0(XXXX)0{)00000000000{X)000(X)00(X)000000000000000000000000(X)00()(K)(X)000 

(xxx)ooooooooooooooooooooooooooooooooooooooooooootK)8ioooooo(X)oo(>oooooooooo(X)()oooooooooE8300800Cioo()0{xx)()(X)oo(xx)oooooooooccoo()8()oci() 
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* HP RAM Viewer Vs 1 

* par TROUSSET Eric 


ST=0 1 5 
C=( ) W 


;i! PLUS D’INTERRUPTIONS 
Initialement R4-0 dune F incrémentation de DI est de R4+I 


* H 

H RRRRR 

AAA 
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s s s 
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R4=C * ligne c a d que l ’on a un scrolling ligne par ligne. 
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* Vision rieur graphique de RAM 







HFX Ü000A9D4E62051 0204500000200200 1 08 (XXX K) A A4 2 A 


* RO = VALEUR AFFICHEE PAR «AFFICHE!) I » ( AFF1CHFDI AFFICHE R():A ) 

* R] = ADR FONT 

* R2 = SAUVEGARDE DE D I 

* R3 = Nbr de quartets par ligne 

* R4 = SPEED 
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A20E0020G 1000004002 0800800000A2 

HFX 9FAA204002(X) 1 0001 00007 OOOOC i 00(X)7000007(XM)07000040 

: IMMENU * A 

C=RSTK * F 

D I =C * F 

GOSBVL #1C58 * I 

LC(5) #10 C 
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POCHÉ COMPUTERS 

r 

je 

O 
M 

lu 

r 
E 
R 
S 

:LOOPMENU * H 

A*' DAT ] VV f ■ 

DAT0=A W * 

DUDS+ 15 * MON 

DUDI+ 1 * 

D0-D0+ 15 * M 

D0-D0+ I * E 

OC- 1 A * N 

GONC LOOPMENU * U 

GOSUBL IMAGE 

HEX 4AAA406444EOE8E 

2E0E8E8EOAAE880E2E8E0C 

HEX 2EAEÜE84220EAEAEÜEA E8E04AEA 

A06A6A60C2 

HEX 22CG6AAA60E2E2E0E2E220 

: IMAGE 

c=o W 

C-RSTK 

R 1 -C 

Dl<5) #80000 

: BOUCLE 

CD 1 EX 
D I =C 
R2=C 

GOSUBL AFFICHE 

C-R2 

D1=C 

GOSUB CHOIX 
GOTO BOUCLE 




:CHOIX 

LA(3) #004 
LCf 3 > # 1 (K) 

OUT-C 

GOSBVL #11 60 

C-C&A X 
?C=0 X 
GOYES SUIT 
COLON G AFFCHR 
:SUIT 
LA(3) #001 

LO 31 #100 

OUT=C 

GOSBVL #1)60 (C-1N) 

C-C&A X 
?C=0 X 

GOYES SUITE 
C-R3 
C-C+l A 
B=C A 
C-R4 
A=G W 


A-A+B A 
C=C-Î A 
GONC AD! 

CD] EX 
CC+A A 
R0=C 

GOSUBL AFFICHED1 

C=R0 

DUC 

RTN 

:SUITË 

LA(3) #002 

LC(3) #100 

OUT-C 

GOSBVL #1160 

C-C& A X 
?C=0X 

GOYES SU1TE2 

C-R3 

C=C f 1 A 


HP RAM Viewer 


B-C A 
C-R4 
A-0 W 
■AD DI 
A-A+LÎ A 
C=C- 1 A 
GONC AUDI 
CD 1 FX 
C-C-A A 
R0=C 

GOSUBL AFFICHED I 

C-R0 

D 1 -C 

RTN 

:SU1TE2 

LAf 3) #010 

LCf 5 ) #002 

OUT-C 

GOSBVL# 1160 
C-C&A X 
?C— 0 X 

GOYES SUITES 
D1=DI+ 1 
CD 1 EX 
R0=C 

GOSUBL AFFICHED I 

C=R0 

D 1 — C 

LC(5) #400 

:RTN 

C=C- 1 A 

GONC RTN 

RTN 

:SUITH3 

LA(3) #010 

LC(3) #100 

OUT=C 

GOSBVL #11 60 
C= C&A X 
?C=0 X 


LC<5) #2000 
:WA1T1 
C-C-l A 

GONC WAIT1 
RTN 
:SUITE5 
LA(3) #001 
LC(3) #002 
OUT-C 

GOSBVL#] 160 
C=C&A X 
?C=0 X 

GOYES Sun E6 

C=R4 

C=C-1 A 

GONC SP2 

GOLONG O VH RF 

:SF 

R4=C 

CD 1 EX 

R2=C 

C-R4 

R0=C 

GOSUBL AFFICHED 1 

C-R2 

DUC 

A-R4 

R0- A 

LCf5)#2000 
:ADD2 
C=C-1 A 
GONC ADD2 
RTN 
: SUITES 
LA(3) #004 
LC( 3 1 #040 
OUT-C 

GOSBVL #1160 
C=C&A X 
?C=0 X 


GOSBVL #5 143 * les 

registres 

:OVERF 

RTN 

:C1.S 

LC{5) #76 
GOSBVL #IC31 
A -U W 
:loopef 
DAT0=A W 
D0-D0+ 15 
DO-D0+ 1 
C-C-l A 
GONC loopef 
RTN 

: AFFICHE 
LC(5)#37 
B-C A 

GOSBVL#lC31 


* 

C-R3 * 

:loopa * 

tloopligne * 

A=DAT 1 P * 

DAT0=A P * 

D0-D0+ I * 

DUD1 + I * 

C-C-l A * 

GONC loopligne 
C-R3 * 

LA(5) #21 * 

A-A-C A * 

CD0EX * 

C-C+A A * 

CD0EX * 

B=B-l A * 

GONC loopa * 

RTN * 

Retum 


grob du menu 
LAf 5) 4F * 

Décalage en quartets 
pour 

afficher ou je veux 
CD0EX *\ 

C=C+A A * } 
ajoute a D0 le décalage 
necessaire 
CDOEX *1 

LC{5) #4 * Compteur 
de boude 
:RTNN 

A-DAT I P * affiche le 
DATO-A P * 

D 1 -D 1 + ] * caractère 
D0-D0+ ! 5 * 

D0-D0+ 15 * 
DO-DO+4 * 

C-C-l A * 

GONC RTNN 
A=R0 
C=0 A 
P= 3 
C-A P 
P= 0 
CSR A 
CS R A 
CSR A 
C-C+C A 
A— C A 
C-C+C A 
C=C+A A 
A-R] 

C— C+A A 
DUC 

GOSBVL #IC58 
LAf 5) 50 
CDOEX 


GOYES SUÎTE4 
DUDÎ- 1 
CD 1 EX 
R0-C 

GOSUBL AFFICHED ! 

C-R0 

Dl-C 

LCf 51 #400 

:RTN 1 

C=C- 1 A 

GONC RTN I 

RTN 

:SU1TE4 

:SPEED 

LA(3)#OÜl 

LCf 3) #001 

OUT -C 

GOSBVL#] 160 
C-C&A X 
X’-O X 

GOYES SUITES 

C-R4 

C-C+l A 

GONC SP2 

GOLONG OVERF 

:SP2 

R4-C 

CD1EX 


C-R4 

RO-C 

GOSUBL AFFICHED 1 

C-R2 

Dl—C 

A-R4 

R0- A 


GOYES suite7 
C-R3 
LA(5) #0 
2C<=A A 
GOYES suite7 
C— C-l A 
R3-C 
GOTO cîs 
:suite7 
LAf 3) #001 
LCf 3) #040 
OUT-C 

GOSBVL #11 60 
C-C&A X 


=0X 
GOYES suite? 
LAf 5) #21 
C-R3 
?C>— A A 
GOYES suite? 
C-C+! A 


GOTO cl s 
:suite8 

LAf 3) #010 * Si la 

touche 

LCf 3) #010 * Enter 

OUT-C * est 
GOSBVL #11 60 * 
actionnée 

C-C&A X * alors 
on sort 

?C=0 X * du 

programme 

RTN Y ES * en 


restorani 


: AFFICHED ! 

A—R0 * A— nbr a 
afficher 

C-0 A * C-A A 
P- 4 * P= 0 

C-A P * COPY LE 
QUARTET n c 4 DE A 
DANS C 
P- 0 * P- 0 

CSR A * DECALE 
LES QUARTETS 
DE C:A DE 1 
QUARTET VERS LA 
DROITE 
CSR A * I « 




fl 


CSR A * I 


« 


CSR A * I 


fl 


« 


+r 


fl 


C-C+C A *) 

A-CA * )C=C* 1 2 A 
C-C+C A * ) 

C-C+A A * ) 

A-R 1 * RECU- 

PERE L’ADR DU 
GROB 

C-C+ÀA * CALCUL 
U ADR LA LETTRE A 
AFFICHER 
D1=C * POINTE 
SUR L'ADR DE LA 
LETTRE A AFFICHER 
GOSBVL #!C58 * 

Pointe sur le début du 


CDOEX 
LCf 5) #4 
:RTNN1 
A-DAT 1 P 
DAT0-A P 
DUD1+ I 
D0-D0+ 15 
D0-D0+ 15 
DO-DO+4 
C-C-l A 
GONC RTNN! 
C— 0 A '* 

P=2 * 

A- R0 
C-A P * 

P-0 
CSR A 
CSR A 
C-C+C A * 
A=C A * 
C-C+C A * 
C-C+A A * 
A-Rl * 
C-C+A A * 
D1=C * 
G0SBVL#1C58 
LAf 5) 51 
CDOEX 
C-C+A A 
CDOEX 
LCf 5) #4 
:KTNN2 
A-DAT 1 P 
DAT0-AP 
DUD1+ 1 
D0-DO+ 15 
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D0=D0+ 15 
D0=D0+ 4 
C=C-l A 
GONC RTNN2 
C=0 A * 

P= 1 * 

A=RÜ 
C=A P * 

P= 0 
CS R A 
C=C+C A * 

A=C A * 
C=C+C A * 
C=C+A A * 
A=R1 * 
OC+A A * 
D1=C * 
GOSBVL#1C58 
LA{5) 52 
CDOEX 
C=C+A A 
CDOEX 
LC{5) #4 
:RTNN3 
A=DAT 1 P 
DAT0=A P 
D1=D1+ I 
DO=DO+ 15 
D0=D0+ 15 
DO=DO+ 4 
C=C-I A 
GONC RTNN3 
C=0 A * 

A=R0 
oa P * 
C-C+C A * 

A=C A * 
C=C+C A * 

C=C +A A * 
A=R ! * 

C=C+A A * 

D 1 — C * 
GOSBVL #IC58 
LA(5) 53 
CDOEX 
C=C+A A 
CDOEX 
LC(5) #4 
:RTNN4 
A=DAT 1 P 
DATO-A P 
D1=D1+ 1 
D0=D0+ 15 
D0=D0+ 15 
D0=D0+ 4 



HP RAM Viewer 


C=C-i A 
GONC RTNN4 
RTN 
CD1EX 
R2=C 

GOSUBL PRES 


: APEC H R 


1 


21 


HEXA800900000000ÜOÛ000000000000002A04A842000000000000000000000Q00000284800290 
HEXOOOOOOOOOOOÜ000000000000288028408000000000000000000(KKKX)002A84A8429000()000 
HEX00000000000000005B7BFEBFC97006002C 1 70 1 0000000000000069D6B D6BD00 1 0036BD8 1 00 
HEXOOOOOOOOOOOOF18 1 6046BD0070836BDC 1 OOOOOOOÜOOOOB6787E 1 2EB7088003C3FA 1 00000000 
HEX000000E8 1 60 ! 6B300700303CE30000000000000069D6BD6B5004003C 1 781 000000001 100057 
H EX7 B FEBF6 B D( K )3< )8 7 C( >38 
H! 


HE 

HHXOOOOOOOOOOOOOOOOOOOOOOF397E37EB8E370CDDDD1 0000000000000002 A828C2882AC0882A8 
HEX00000000000000002A82802K98800052A80000000000000000A%A17A9A8070022A8000000 
HEX00000000002822082888080022A80(X)000()0( 100000002 84289 28 88890022 A800(K)00000000 
HEX00007C9E37EB8C 1 7007C 1 

1 

HEX000000000000()0000OOOO(}00000000O()OOOOOOO8 lOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
HEXE8300800C lOOOOOOOOOOOOOOOOOOOOOOOOCCOOOHOOC I000000000000000000000000c8000c 
HEX0063000000000000000000000000C8000C006300BD30C3K440C6FC7BD7FOOOC8000E006300 
HEXBD60C6BD60C66C6BD6B I0OC80C0C0O630OBD6ÜC6BD6OC66C0BDÜB IOOC8C70C006300BD60C6 
HEXBD70C66C0BD0B 1 0()C8C30C006300BD60C6B D70C66C0BD0B 1 00C8200C00E300BD60C6BD7(K’6 
1 1 p:X6C0BD0B 1 00C 8 2OOCO0H3OO B D60C6BD7 0C66C0 BD0B1 (X )C 8 20OCO0E3 00FD30C 3 FD70C66C3FD3 
HEXF00085C 1 0C0063Ü0BD00C 1 BD60826C0FD07O0085C 1 0C0063(X)BIXX)C I BD60826CÜFD0700085 
HEX020C0O6300BD00C2BD60826C0FD0BO008502OC0063OÜBD00C2BD60826C0FD0B000O302OC03 
1 IEX6300B D00C6BD600 1 6C0BD0B ! 000302 0C03630QBD 1 0C6BD600 1 6C6BD6B 1 0003E 1 0E 1 3C 1 00BD 
HEX 1 FD6BD600 1 FC7 1 D7B 1 0003E I OF 1 3C 1 


FII 

HEX 

:PREÎ 


OR ST K 
D 1 — C 
LC(5) #76 
GOSBVL#()IC3 ! 
:LOOP56 
A=DAT I W 
DATO-A W 
DO=DO+ 15 
D0=D0+ 1 
D!=D !+ 15 
D 1 =D 1 + 1 
OC - 1 B 
GONC LOOP56 
LA(3) #008 
:LOOPATN 
LC(3)#100 
OUT-C 

GOSBVL#! 160 
C---C&A X 
ICM) X 

GO Y ES LOOPATN 
OR2 
D 1 -C 

GOl .ONG cls 


Dans le Puy de Dôme 

CLUB HP ' HEXAGONE PROGRAMMATION" 

pour des renseignements, 
expédier une enveloppe timbrée à : 

M. Stéphane VILAYSACK 
11, rue des hauts de Chanturgue 
63100 CLERMONT FERRAND 


AFFICHAGE DE GRANDS NOMBRES 


par Paul SCHIELE 

U n'est pas toujours évident d'afficher de grands nombres sur sa calculatrice, voici 2 programmes pour y remédier : FS a pour but de formater une 
chaçine de caractères en insérant un espace tous les 5 caractères à partir de la tin de la chaîne. AS découpe la chaîne obtenue en tranches de 30 
caractères composées chacune de 5 groupes de 5 chiffres + I espace. Chaque tranche est transformée en objet graphique et ajoutée dans PICT. 


FS: DE DUP SIZE 5 - 
(F DUP 0 > 

TH EN 1 

FOR i i ! DISP DUP I i SUB " rr + 
S WAP i i + 32000 SUB + -5 

STEP 
El .SH DROP 
END 


AS : DE DUP SIZE DUP 30 MOI) -> ch a b 
ch 1 h SUB 1 30 b - 

S’1 ART ,! " S WA P + 

N EXT " " S WA P + 1 > G RO B 
ch h 1 + a SUB DUP ch 1 STO SIZE ! 

FOR n ch 1 30 SUB " " S WA P + 
ch 31 n DUP 30/1 DISP 
SUB 'clé STO 1 -> GROB DUP2 SIZE 


ROT SIZE 4 ROI ,L DROP ->h2 w h i 
whi 112 + B LAN K | 0d| hl + 
ROT REPU { Od Od j ROT R EPI. 
-30 

STEP PICT STO { ! P VIEW 
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Les serveurs HP48 : un monde parfois méconnu 

par David WINTER 

Ht'lûl rrn 1 


J 


L e pÎ e mi’ire es!" fdem", n de r ? r ° CUrer ^ m " ,eS H P4 « • 

* U .es " 

habite nrès d’nn n*>„ i u ,e sauf M ,a personne 

.^ch^erde S pn )gra ;:;“^ ,mSa,Cl "' S ^ Sai ‘ 

* S t e , procl,rer “initel et de se connecter aux 

lui d’une e^minni^caüon X normaîe n excrntéT ( ^ ,1 ^ ra ^ emenl Ce ~ 
TRANSPAC (accessibles par 36 1 4 36 15 eu. iT T " SUr 

«ifvoius per, nettant de vous connecter,,, 'dtn-' ' desc,i P- 

i _ . 1T incuei aux differents servent j-tïmo 

I^s meilleurs serve,,,, minitel : „, te non exhaustive ^ 

R FC -one : ( I )48-70- 1 0-29 

JRF : (1)47-95-28-10 
DYNAMIX : (1)48-89-96-66 

RTEL : 36 15 code RTEL 

CALof ATno” V 36l4code R1 >-LI OU RTEL2 
p^t A ™ : 36 15 CALC| JI.ATOR 
P OC KET COMPUTER BBS : ( I )42-08-60-8-> 

-LLEa_co nnexio n 

îrr ïZïss; * ; * ; - - - 

* c<Hle d acces et ouvrez une boîte aux lettres irai , i 
servira à recevoir pnrgram-mes e, 

connectés, ou de responsables du serveur Si ' 

surm dc rega ' de; £ 

:r“ ÆSfisrrcsrîK 


téléchargement sur ordinateur (PC, Atari Ainio., w r 

ration de B BT sur HP est très sinml . . \ . à v - i ' Pd ton,1 £ u_ 
paquets en faisant 3072 PKTS ^ \ l SU Z* dc re ^ ,er la tadle des 

de la tüüch e MODE : ONCE (MODE STOP B reteptlon al aide 

STOp ie V ° Uie/ qU ' im Sei " P r —e, ou EOOP (MO^ENON- 

grammesVlasu iteTa^ T" ( V ° l ' ,eZ ! é,échar S er P'^ieurs pro- 

HP48 est Hp ^ ^ mamue la plus simple d'obtenir BBT pour 

1^8 s.t de vous connecter sur RTC-on e ;d’aller dans le rnenû 
L ( L R 1 télécharger directement (cette mérhoH * 
sue aucun protocole mais est très lente 9 neces ‘ 

enveloppe de retour affranchie et une d su èt^' 

DOS. Mon adresse est dans l’artiH^ , 3 ]/2fo ™ateeen 

HP48. " C e ' SLU e ‘ s n,veaux de gris sur 

c) comment télécharger un programme 

Eette étape s appelle le DOWNLOAD. 

4{)tit d abord, vérifie/ nup i-i ud , £ ,. ... 

A PU,K Sé ’ eC, ^^« 

numéro 4u ^ 

S “r- ,,n pro ~ ^ 2 

erreur de transmission stonne h \w t)lt une 

comme* -u- c- J ust lti a ce que vous relanciez le minitel 
avant. Sinon, le programme BBT s’arrête. 


ZjXç Jéléchargempnt 

notre cas) présents dans IWf & s pr° fc i animes (HP dans 

a) configuration de la HP48 

curez dans le menu ./O, appuyez sur 

Ss ,?v t ™ SmiSSi “ n “ h vmcssc en P 

oAUDb, la parité en EVENf^t i P r ^ L „ , 
o ■ y^—)* i-ft. reste ne coin ntt 1 nos; 

appuye/ sur la «>-h0 shift-auchc 

W.RE SSSr ' a ™ 

votre HP48 au ^rtii! ï teP wi us pma rez vo^ ° • * 10UI C ° n necte r 

du schéma proposé dans POCHE COMPUTERS n“ Z ^ 

brfc — otts à MICROC a'rdS "J* fabrique!" 

b) le protocole de téléchargement HP 

C est un programme qui permet à la HP de recevoir P r r 

des programmes avec le câble r i , L envoyer 

protocole RRT m ■ i U P upart des serveurs utilisent Je 


d ) comment envoyer un programme 

Oette étape s’appelle HJPLOAD. 

ANxmt tout, le programme à envoyer doit être en vumhles pi 

ENTFR ) Li fAi j s*a * n n j ie SUf PÜe de HP (P a r exemple TOTO’ 

- )■ Plus accédé/ au menu UPLOAD du minitel et mettez 
HR Anf " ' ““ a l 'écran,. Tapez , JPLD^ur 

( si rie„^^s!r^r' eneindiqUel ' enVOidUpro « ram »- 

coçnguradou HP ou de mani^i^ Zn^. Zendezh tn 

être aid& m ,r un CoS^f ^ PCROn " U appeléc S >^Op. pouvant 
pkls | d . f r ' P - S ° UVeW choisi P arTn ‘ 'es connectés les 

— - 

^ Uea questions aux au^ 

CLUB HP TOULOUSE 

rogrammation, échanges de programmes, réunions -mP'i i-r n 
Renseignements contre enveloppe timbr a " 

Club HP TOULOUSE 
Université Paul SABATIER 
Division de la vie étudiante 
118 , route de Narbonne 
31062 TOULOUSE cedex 
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Les serveurs HP48 : un monde parfois méconnu... 



Les rubriques et les clubs concernent un sujet précis: HP, PC, 
histoires drôles, actualité, maths, jeux, etc... 

Vous pouvez aussi dialoguer en direct dans les salons avec les 
connectés, leur envoyer messages et programmes en BAL, et même 
écrire et dialoguer avec les responsables du serveur. Vous pouvez 
devenir responsable à votre tour si vous vous montrez très 
participant et intéressé par le serveur, ou si vous voulez créer une 
rubrique ou un club dont le centre d’intérêt n'existe pas encore. 
Généralement, chaque connecté possède un grade selon son 
importance parmi les autres, qui se traduit souvent par un niveau, 
donnant accès à certaines fonctions: modifications de messages 
en rub/club, accès au système serveur, accès aux B ALs des autres, 
etc... 

Si vous possédez un club ou une rubrique, vous êtes SysAniin 
(SysRub ou SysClub selon les serveurs). 

En ce qui concerne le téléchargement, chaque menu propose des 
centaines de programmes, suivant la machine que vous possédez. 
La plupart sont documentés brièvement. Certains serveurs limitent 
le temps d'accès au téléchargement à l’aide de créditels. Plus votre 
connexion est longue, plus vous gagnez de crédits. Mais en fait, à 


part certains serveurs assez moyenâgeux, vous avez largement de 
quoi télécharger, vu que vous disposez d'une certaine somme de 
crédits au départ. Et dans le pire des cas, chaque connecté peut 
faire don d’une part de ses crédits à un autre, et en cas 
d'impossibilité, un responsable du serveur peut vous en donner. 
Ce système de crédits n'est généralement valable qu'en dessous 
d’un certain niveau. 

Certains serveurs comme RTC-one organisent de temps en temps 
des dîners. Vous pouvez vous y rendre afin de rencontrer Sysops. 
C oS y sops . S y s A n i ms. pre >g ram i ne urs . . . 

L'ambiance est très agréable, même les débutants viennent pour 
participer et apprendre avec les autres. C’est d'ailleurs le meilleur 
moyen de vous faire connaître et de monter dans l'estime des autres. 
Pour le reste, je vous laisse le plaisir de passer quelques heures 
devant votre minitel. Bonne chance... 

Note de la rédaction ; Si vous habitez en province, faites 
attention aux coûts de communication car la plupart des 
serveurs sont situés dans la région parisienne. A ce sujet, 
appelez plutôt le soir après 22H30 ou le week-end. Cependant, 
vous ne serez pas seuls à le faire à cette heure ! ! î II faudra 
assez souvent patienter. En effet, certains serveurs fonctionnent 
avec peu de moyens et par conséquent n’ont pas beaucoup 
d’accès simultannés. 


NOUVEAU ! accédez à 30 mégas octets de programmes pour hp48 


MICROCARDS est en mesure de vous proposer sur disquettes, dès maintenant le plus important fichier de 


logiciels shareware et freeware pour HP48 existant au monde ! Jugez plutôt : 17 disquettes 3 1/2 pouces de 
1,44MB PC compressés ! Voici la liste exhaustive du contenu des disquettes. (50% des logiciels ne tournent que 
sur S/SX, 15% uniquement sur G/GX, le reste sur les deux à la fois). Vous trouverez environ 4mégas de softs en 
assembleur. Le lot (non détaillé) de 17 disquettes+1 disquette explicative : 630F 4- 45F de port = 675F 


Méga Compil HP4! 

8 ASM 1 J R. PAC 

DRAW4K.PAC 

GRB.PAC 

HPTOULON., 10 

KERMIT32.PAC 

NIVOBAC.PAC 

PHYSIK3.PAC 

STFNT.PAC 

HPTOULON, 1 

ASS. PAC 

DRIVFKAR.PAC 

GRB DI V. PAC 

HORN7.PAC 

HPTOULON. J 3 

NOUVEAU. PAC 

P1GALUT1.PAC 

STRWRT.PAC 

XACT520.PAC 

R AB ES 2. PAC 

DTETRIS.PAC 

GR1S4.PAC 

MP48SX.PAC 

h po pries, pac 

NOYAU .PAC 

PIM48.PAC 

SUNCLK.PAC 

X EN NON. PAC 

BAC, PAC 

□TOOLS. PAC 

GROBI9HP.PAC 

HP4BROCH.PAC 

K ITSO N 0 R . PAC 

NUDDANCE.PAC 

PLAY MATE, PAC 

SUPCAR10.PAC 

WINKERMI.PAC 

BACSCIEN.PAC 

DUNGEMAS.PAC 

GROB2VGA.PAC 

HP AXEL. PAC 

KPR0T06.PAC 

NUDE.PAC 

POKER JD, PAC 

TA. PAC 

H PTC) l J LO N .C AT 

RAHA12.PAC 

dxp.pac 

G RGB H P. PAC 

HP_.UTILS.PAC 

LEHM.PAC 

OBJROMGX>PÀC 

POMPES, PAC 

TECHNIQ.PAC 

ASKFR.COM 

BAK2SCHO.PAC 

ED7.PAC 

GROBPCX.PAC 

H PAS M PAC 

LIB.PAC 

OLMANIMS.PAC 

PORNO. PAC 

TERM4KPAC 

[AUTOMNE.EXE 

BENO DM. PAC 

ED7L 1503. PAC 

GROBSLPAC 

HPASMIO PAC 

U B. DEY PAC 

OLM JEUX. PAC 

PORTS AV E. PAC 

TETRISS.PAC 

ÏLIREI IPT.EXE 

BIBI.B48.PAC 

EDITEUR. PAC 

G R OB S 2. PAC 

H Pli mil PAC 

L1BMK.5IG PAC 

OLMMUS1Q.PAC 

PROTECK PAC 

TRTRÏSX2.PAC 

! POISSON, EXE 

HPTOULON, 3 

EDITKONT.PAC 

GROBS3.PAC 

H PD RB U G. PAC 

1.IBMKR.PAC 

OLMPROGS.PAC 

HPTOULON. J 6 

I l X K 1 JIM, PAC 

IPROGRPL.EXE 

BLAST._SX.PAC 

EFPECTS.PAC 

GRR1PPI5.PAC 

H PDI R. PAC 

LIONEL I.PAC 

OLM SEL 10. PAC 

PER FL PAC 

THECST.PAC 

! PYRAMID.EXE 

CABLE. PAC 

EINSTEIN. PAC 

GRUGCHIM.PAC 

11PLNVI PAC 

LION EL2. PAC 

OLMSE1.1 I.PAC 

PU ISS ANC. PAC 

THERMO. PAC 

FORMACAT.KXE 

CALEPIN. PAC 

ENGRO 1 92. PAC 

GR LG MA TH PAC 

H PG A N G, PAC 

LIONEL3.PAC 

OLMSEL1 2. PAC 

QUI), PAC 

TH P, PAC 

HPTOULON.EXE 

CARRACE.PAC 

EL-TER PE2 .PAC 

GRIJGPI 1 Y 2. PAC 

HPG.IRUSXPAC 

1 30 N El .4 . PAC 

OLMSEL2LPAC 

QFL.PAC 

TÎF2GROB.PAC 

PKUNZIP.EXE 

CFLOW.PAC 

EXTERN. PAC 

GRUGPHYS.PAC 

I IPGRAPH FAC 

USB PAC 

OLMSEL22.PAC 

RECOVER2.PAC 

TNT. PAC 

FOR MAC AT. PAS 

CH ASM -PAC 

FAS1IR2.PAC 

G X CO MPI 1 PAC 

HPGROB2Ü.PAC 

1 JSTEDUCPAC 

OLMSR.L23.PAC 

REV.PAC 

TOOLS. PAC 

QU ELI MS K. PAS 

CHIMSPKP.PAC 

FEMMRS4C.PAC 

GXCOMPI3.PAC 

1 IP1BM.PAC 

LOGHP48.PAC 

OLMSEL24.PAC 

ROM!!!!!. PAC 

TOÏETRS.PAC 

CREER CAC R AT 

CHIPER PC. P AC 

HPTOULON. ! 

HPTOULON. 6 

HPTOULON.J 1 

LV JEUX. PAC 

OLMSEL30.PAC 

ROM AN, PAC 

TREEPAC 

C REERC AT, DOC 

CLAUD1A.PÀC 

FICHES, PAC 

GXCOMPI2.PAC 

HP48DIVR.PAC 

1 VI Tli .S. PAC 

HFIOULON .15 

ROMPTAR.PAC 

TRUECOL.PÀC 

QUELDtSK.EXE 

CODER. PAC 

FLORILEG.PAC 

GXCOMPI4.PAC 

HPLINK.PÂC 

LZSS.PÀC 

OLM S El 40. PAC 

RPN095.PAC 

TTT.PAC 

DECOM PAC. EXE 

CÜGO.PAC 

FNTWRTPAC 

GXCOMP15.PAC 

HPMATH_.PAC 

MAC HCODR.PAC 

OLMSEI.4l.PAC 

RPN30EXE.PAC 

UNAS17.PAC 

INSTALLE RAT 

COM PH J B. PAC 

FONT. PAC 

GXCOMP16.PAC 

HPTOULON. 12 

MAT CH IM PAC 

OLMSEL42.PAC 

R TEL. PAC 

UTIL.PAC 

LISEZ. MOI 

CST. PAC 

FONTES I.PAC 

GXDEV KTTPAC 

HPGUTLGX.PAC 

MAT F 1 PAC 

OLMSEI.43.PAC 

SADHP101.PAC 

UT ILS PAC 

HPTOULON. 2 

DA.OAME.PAC 

FONTES2.PAC 

GXGRAPH I.PAC 

HPG UTLSX . PAC 

HPTOULON. 14 

OLMSEL44.PAC 

SASS23.PAC 

UT1PORTS.PAC 

28PROCESPAC 

DATA. PAC 

FONTLS3.PAC 

Ci XJ EU ASM. PAC 

1 1 PR RAI >1 3. PAC 

MATH SCO L PAC 

OLM S Fl .45. PAC 

SATURN.PAC 

VTEUX4&.PAC 

48 ASM DBG. PAC 

D B 48. PAC 

FR ACTA l .S. PAC 

HORN2.PAC 

l IPSHLL JO, PAC 

MATHSSUP.PAC 

OLMSE1.46.PAC 

SATURNE. PAC 

VIFWGROB.RAC 

48SXLAND.PAC 

DEMI N EUR. PAC 

LRENCH2.PAC 

HPTOULON. 7 

H PSD R PC PAC 

MEGACLOK.PAC 

OLMSEL47.PAC 

SCANCHEK.PAC 

VOIRTEXT.PAC 

4COLORS.PAC 

DEMO.PAC 

FR U B, PAC 

IIORN I.PAC 

UPSXSONS.PAC 

MENU EXT. PAC 

PACMAN1A PAC 

SCH48V20.PAC 

V POKER. PAC 

7JEUX.PAC 

DEMOSU P. PAC 

FTLV25.PAC 

HORN4,PAC 

1 1 U NT, PAC 

M INED. PAC 

PARI S2 .PAC 

SCR EE N, PAC 

VTX1G09.PAC 

8SVX2HP4.PAC 

DESA48MD.PÀC 

GHPCOMP1.PAC 

HPTOULON. __8 

ICECUBl I.PAC 

M INEDI AM, PAC 

PARIS3.PAC 

SEX48POS.PAC 

VTX2509.PAC 

ADDR 1 1 22, PAC' 

DESKHP4.PAC 

GIRLS48.PAC 

GXJEURPI..PAC 

ICONS48.PAC 

MISSION, PAC 

PC-HRPAC 

SHAPES!.PAC 

VTX 2808. PAC 

AGENDAS, PAC 

DESLIB.PAC 

GOLF, PAC 

ï {OR N 3. PAC 

IFX_GROB.PAC 

MLDISP.PAC 

PCFONT48.PAC 

SIMPSON S. PAC 

WHEEL.PAC 

AN] MATE. PAC 

DESS I.PAC 

GOLF_l I .PAC 

HORN5.PAC 

INTER N AL. PAC 

ML .STAR' T’R.PAC 

PCT427.PAC 

HPTOULON.J 7 

WP. PAC 

AREUI I.PAC 

DE V PAC 

GR2DR.PAC 

HO RN 6. PAC 

1R.TV.PAC 

M OD EB RO W. PAC 

PCT555G.PAC 

SK.W1KSX.PAC 

X I I .PAC 

ARKAII-CS.PAC 

DIG1NUTS.PÂC 

GR„BIO.PAC 

HPTOULON. y 

IR EM. PAC 

MORE33.PAC 

PCT >35$, PAC 

SMA PAC 

XYMDM24.PAC 

ARKANOI2PAC 

DI S PI .S. PAC 

GR_CH IM I.PAC 

HORN8.PAC 

J A NI N 2. PAC 

MOV E I .. F. V L. PAC 

PCTCUSTl .PAC 

SMARTKEY.PAC 

ZAP. PAC 

ARKANOID.PAC 

DISS.PAC 

G R Hl -GE PAC 

HORN9.PAC 

J AN IN M U S. PAC 

MULTUEU PAC 

PCTOOL53.PAC 

SND.PAC 

Z1LPOMPE.PAC 

ASM 1 234, PAC 

DI VERS, PAC 

G R PI I Y S L PAC 

HP28- l'O-.PAC 

J BOND PAC 

MUSICALE. RAC 

PFEPS HOW.PAC 

SNDPLAY.PAC 

ZOOM2.PAC 

ASMCOMPI.PAC 

DIVERS I.PAC 

GRAB48.PAC 

HP28S.PAC 

JEU. PAC 

MUSICSZFAC 

PER) O TA IL PAC 

S01.E1L.PAC' 

ZOOMER. PAC 

AS MR P R. PAC 

Dl VERS 2, PAC 

HPTOULON. 5 

HP28TO48.PA0 

JEUEABY.PAC 

MUSSYSI6.PAC 

P HO NJ B RO, PAC 

SOUNDEK.PAC 

ZT ER XL PAC 

ASMFUB.PÀC 

DIVERS. U PAC 

GRIMAT H S, PAC 

H P48- V 25 . PAC 

JUPITER. PAC 

N AV 4 -3, PAC 

PHOTOS. PAC 

SPKR32.PAC 


ASMHP7RPAC 

DI VJ EUX. PAC 

GRAPRPAC 

HP48DEMO.PAC 

jYLOGSRF.PAC 

NEW, PAC 

PHYSCHïM.PAC 

STAC KS, PAC 


ASMIMT.PAC 

DNiCK.EL.PAC 

GRAPHICS. PAC 

HP48PREP.PAC 

KERDOCPAC 

NFAPHP48.PAC 

PHYSIK1PAC 

'STAR 1044, PAC 
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256K de RAM en interne dans votre HP48G !!! 



Mem Available 


256305 bytes 


Aimeriez-vous voir cet affichage sur l’écran de votre HP 48 G ? 


Cela esi possible maintenant. MICROCARDS vous propose tic "gonfler" la mémoire de votre calculatrice 4XG oui ne 
possédé malheureusement que 32K de hase, sans que cela en modifie le fonctionnement 

Combien de lois avez-vous pesté contre le lait que vous n'avez, pas assez, de mémoire. Si seulement j'avais... allez, quelques 
kilos de plus, bh bien, on peut maintenant vous donner jusqu'à 256K de mémoire au total ! 

\ous avez sans doute remarqué que votre HP48G ressemble à s'y méprendre à sa grande soeur la HP48GX... 

Si ce n’est qu'elle ne possède pas de slols pour cartes mémoire. 

Nous ouvrons votre machine et nous modifions l'électronique interne pour que 1 28K de ram soient reconnus par la 48G 

(mémoire continue), ensuite nous permettons l'utilisation du port I (inutilisé pour cette calculatrice) en ajoutant I28K 

supplémentaires, de façon à monter la mémoire à 256K. Nous refermons avec beaucoup de soin votre calculatrice et nous 
testons. 

Le tout fonctionne a merveille ! ! ! La totalité de la mémoire est conservée même après avoir éteint la machine La surcon- 

; SOn :^ l " n ^ nergie eSt négligeable : Dans ie cas d ’ une augmentation à 256K, il est possible de fusionner ou non le port 1 
(oulie : 1LRGL ou PRLb); c'est a dire d’obtenir 128K en mémoire centrale + 128K en port I (comme si vous aviez une 
carte mémoire I28K !), ou 256K en mémoire centrale. 

Faites-nous parvenir votre HP48G par colis postal uniquement ; nous vous la renverrons de la même façon. 

- colissimo recommande R3 (vous ôtes assurés pour 3000b en cas de perte ou de casse... gardez bien le récépicé) 

- emballez très soigneusement votre machine (bulles - polystyrène - etc...), et placez-la dans un carton solide. 

-joignez un petit mot pour indiquer vos noms et adresse, ainsi que ce que vous désirez faire effectuer. 

-joignez votre règlement par chèque ou mandat à l'ordre de MICROCARDS. 

Les prix : 

-augmentation de votre HP48G à I 28K : 595F TTC + port de retour 
-augmentation de votre HP48G à 256K : 795F TTC + port de retour 
Délai normal : 8 à 10 jours : frais de port + assurance + emballage = 60F 

Délai rapide : 2 à 3 jours : frais de port + assurance + emballage + gestion = 1 20F (nous traitons votre machine en priorité) 
La garantie de notre prestation est de une année. 

I oui les 100 premières commandes, nous vous fournissons gratuitement 
5 logiciels jeux + utilitaires, placés dans votre machine. Profitez-en !!! 

MICROCARDS - service HP48G - 42220 - BURD1GNES 

tél 77.39.68.13 fax 77.39.19.60 


1 1 1 se tunenl n < *n c i ) n < r; te t u c 1 


39 


Poche computers N°4 




POCHE COMPUTERS 
? 



UTILITAIRES PCDEV 

par Mickaël Saillot 


Suite ci l'article paru dans le numéro 3 de POCHE COMPUTERS sur l'external , nous allons donner ici 
quelques utilitaires en exemple afin de démontrer les possibilités de PCDEV. Je rappelle qu ’il s ’ agit d un programme 
permettant de programmer directement sur votre compatible PC en external , mais aussi en assembleur. A ou s pensons 
que les utilitaires proposés seront très pratiques à tout étudiant voulant se servir de son HP JS comme aide-memoire. 
Et pourquoi pas, être le seul à pouvoir s'en servir !... 


i ) Pour ceu x qu i ne conn aît raient pas PC DEV. 

Il s'agit d’un programme permettant de faciliter Sa programmation en 
external grâce à l’utilisation de la puissance d'un compatible PC’. En 
effet, se souvenir du rôle de chaque adresse présente dans la Rt )M du 
HP 48 paraît impossible étant donné leur nombre ! On a donc donné un 
nom (ou mnémonique) à chaque adresse, permettant ainsi de retrouver 
le rôle de chaque adresse. D’une certaine façon la programmation est 
facilitée car vous avez accès à de nouvelles commandes. Naturellement. 
PCDEV comprend les commandes habituelles (ex: DROP; TH EN; SIZE: 
ELAN K etc). PCDEV compile votre fichier source {tapé sous un éditeur 
de texte) en fichier objet (exécutable sur le HP), en tenant compte de la 
série de votre calculatrice (S(X) ou G(X)). Vous pouvez ensuite envoyer 
le fichier objet sur votre HP par i’ intermédiaire de la voie série. On peut 
appeler une adresse avec S (de la même façon que la librairie DEV sur 
HP48). 1! va la possibilité d’inclure un objet HP (Graphique, programme, 
chaîne...) avec la fonction INCLUDE x\ (si xx dans cet exemple n'est 
pas sur l’ordinateur, PCDEV va directement le chercher sur le HP par la 
voie série en mode binaire !). PCDEV sait gérer les XI JB et pourtant 
pour la G(X) le travail n'a pas été facile, en elle) toutes les nouvelles 
commandes de la G(X) par rapport à la S(X) (ex; CHOOSE; 
MSGBOX....) sont codées comme des XL1B 1 ; de plus le numéro de 
chaque XLIB change pour chaque version de la Cî(X) ! Grâceà la fonction 
INCLUDE CODE, vous pouvez inclure du Code source (même syntaxe 
que les assembleurs compatibles HLASH sur HP). 1! y a la possibilité 
de gérer les mnémoniques (recherche par adresse, par mnémonique, 
ajout...) avec un commentaire expliquant chaque adresse ! Pour vous 
assurer un grand confort d’utilisation je précise que les mnémoniques 
sont les mêmes que ceux de Jean-Michel FERRARD (livres «Les secrets 
de la HP48»). En effet ces mnémoniques ont été adoptées par un grand 
nombre de fanzînes dans l’univers IIP. de plus M. Jean Michel 
FERRARD est vraiment la référence en matière d external ! Pour utiliser 
PCDEV vous avez besoin uniquement d'un HP4K, d'un PC et un câble 
HP<->PC. 

II ) Comment utiliser les utilitaires suivants? 

Malgré une documentation explicite livrée avec PCDEV, je rappelle les 
étapes nécessaires afin d’arriver à faire tourner les utilitaires sur votre 
HP. Après avoir configuré le fichier PCDEV.INI (6: Options), choisissez 
l'option «2; Editer un fichier source», il suffit de donner un nom existant 
pour modifier un source ou inexistant pour taper un nouveau source. 
Après avoir terminé le source choisissez l’option «3: Compiler un source 
en objet», indiquez le nom du fichier objet et ensuite le transmettre â la 
H P48 avec l’option «4: Transmettre un fichier objet». Vérifiez bien que 
le câble soit bien branché et que votre HP soit en mode Binaire. 

III ) L’utilitaire «CHAINETOGROB». 

C'est un utilitaire très pratique qui permet de transformer rapidement 
une chaîne de caractères quelconque en un graphique (visionnable avec 
l'utilitaire suivant) et tout cela en corrigeant le défaut de la commande 1 
->GROB car cet utilitaire lient compte des retours à la ligne (RC ou 
CH R 10) pour la transformation de la chaîne en graphique. Si le llag 6 
est armé (6 S F), alors le fond du graphique sera noir (blanc sur noir) 
sinon si il est désarme (6 CF) se sera du noir sur du blanc. 

PRG @ Compatible S(X)/G(X) 
need ! ChkArg <3h> 

PRG 

sdepth pu 1 1 B 1 1 ! <0h> <2h> 


do pullB|n| CutRCfst) l->grob(st) 
dup Width(go) 1+is) 5roll 
dup'2;>(2s)7 ?#:drop(2) 4rolld 3 p i c k 
3+{s) rolkl(s) l+(s2) dup =»»? pille 
true 

PRG pushBjn] lui se END 
until drop l-(s) <6h> l+(s) 

dup;rot blankYX(2s) swap startf 1 ,s- 1 ) 
swap;over <lh> index repl(2go,2s) <6h> 
stcp(s) drop( 2 ) <6h> UserFs?(s)7 pi It 
inv(so) 

■ C- 

EN D 


END 


I V ) L’utilitaire G ROBVIKW. 

Il permet de visionner n'importe quel objet graphique présent sur le niveau 
I de la pile. On se dirige avec les 4 flèches et on quitte avec ENT 


PRG ( p Compatible S(X)/G(X) 

needl ChkAre <Ch> 

■V-- 

PRG 

CIL X : D M en uO ff <0h > <0h> 
rot GrobDisp(2s,go) do falsc 
INCLUDE CODE 1GOSBVL 0679B 


@ Sauvegarde 


GOSBVLÜI 1 15 
GOSBVL 0 1 BD7 
*GETTOUCI 1 
LA 1 3220002040 
GOSUB O K? 

LA 1 31C800208C 
GOSUB O K? 

LA 1357F001040 
GOSUB O K ? 

LA 1 34E4004040 
GOSUB OK7 @ 
A=0 W 
LA 10010 
GOSUB O K 7 
GOTO GETTOUCH 

■i 


@ Interdit les interruptions 
@ Eteint les indicateurs 
@ d'ici... 


& Charge le registre A avec un in et un 
@ Oui pour tester ensuite si la touche 
@ a été appuyée, les 5 premiers quartets 
@ pour 1' instruction external syscval(s) 
louches possibles; les 4 flèches et EN 1 ER 


@ a ici 


C=A X 
A S RC 
AS RC 


@ copie 
@ 

@ Rotation d'un quand vers la droite du registre À 



mouLortfr 


François Régis TARDY 
Rés, "La Souvenance*' Bât.B 
19, av de Château Gombert 
1301 3 MARSEILLE 


Magazine de programmation “ HP TOULON 
Pour HP 28s, 48s/sx et 48g/gx. Recueil de 
programmes abondamment commentés en RPL, 
RPL Système, Assembleur, Langage Machine. 
Infos techniques, trucs et astuces.. Qualité 
d’impression laser, mise en page sous Word 6. 
24 pages A4 reliées en A3 avec couverture couleur. 
Les pages sont remplies à bloc sans encart 
publicitaire. 

Depuis un an, quatre numéros sont déjà parus. 
Prix ; 1 2 FRF par numéro, plus 4 FRF de port. 
Cadeau: le n°1 sera offert pour rachat des èt‘ 2, 3 
ot n ü 4. Pour 8 FRF supplémentaires par numéro, 
offrez-vGus les disquettes accompagnatrices 3 fl1 /2 
HD. Teneur garantie en logiciels HP48 très 
récents. Listings du journal inclus, 

A très bientôt! 
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H 

E 



ASRC 

GOSBVL 01HEC 
C=C&A X @ 


UTILITAIRES PCDEV 


vQK» same'? pift 

global” 

@ END 

@ Exécute OUT=C et C=IN END 


?C -0 X @ Mauvaise touche; retour de sous programme 
RTNYES @ 

ASRC @ 


ASRC @ Rotation d'un quartet vers la droite 
ASRC @ 


GOSBVL 00D57 
GOSBVL 01 BA9 
GOVLNG 0357C] 
dup;=0(s)? p i f te 
drop;true 
syseval(s) 

until drop StdCurGrob 
StoCurGrob(go) 

END 


@ Vide le butter clavier 
@ allume les indicateurs 
@ l’entier système A;A 

hr 


lcd-> 


END 


VI L* utilitaire CACHE. 

La HP48 a besoin de stocker des variables importantes nécessaires à son 
bon fonctionnement. Pour éviter que V utilisateur ne les PURGE, elle les 
place dans un répertoire caché. Le programme suivant consiste donc à 
cacher vos variables pour éviter qu’un intrus vous les détruise ! (mettre 
une liste { NOM1 NOM 2 j au niveau 1 et lancez le programme. 


PR G @ Compatible S(X)/G(X) 
necdl ChkArc <5h> 

PRG 

breaks(cp) do pullB[l] dup 
rcl(nm)? pifte 

PRG swap;dup purgel(nm) HidSto(_,nm) END 
drop 

dup;=0(s)7 until drop 
END 
END 


VI) 17 utilitaire DECACHK . 

Il réalise la fonction inverse de CACHE, en effet il permet de rendre at 
cessibles les variables du répertoire caché dans le répertoire HOME. 


PRG @ Compatible S(X)/G{X) 
needi ChkArg <5h> 

PRG 


VIII) L’utilitaire PORTCOPY. 

Il s’agit d’un utilitaire très pratique pour ceux qui possèdent une SX ou 
une GX, en ellct il permet de copier le contenu d’un port vers un autre 
rapidement. Pour cela le port destination doit être vide, (s’il s'agit d’une 
carte, elle doit être sur la position NO PROTECT. ). Au niveau 2 mettre 
un chiffre (Port source) ainsi qu’au niveau I (port destination). 


PRG @ Compatible SX/GX 
need2 ChkArg <lîh> 

PRG 

lLput r=>s RclPort(s) do 
pullBll] lLget STO dup;=0(s)7 
until drop2 «Copie terminée.» 
3->grob(st) inv(go) ToCorner(go) 
biiip 
END 
END 


IV) L’utilitaire E 1 BCHOOS. 

Un utilitaire réservé aux heureux possesseurs de G(X). Vous avez sans 
doute remarqué qu’il est difficile de chercher une librairie dans le menu 
LIBRAR\ dès lors que le nombre de librairies est important. Cet utili- 
taire va combler ce petit défaut en vous laissant choisir une librairie par 
menu déroulant ! L utilitaire donne ensuite le menu de la librairie. 


PRG @ uniquement G(X) car instruction CHOOSE 
sdeptli 1 Lput <0h> libs 
dup ={)? pifte 

PRG drop2 «Aucune librairie!» doerr(st) END 

PRG EVAL sdepth L(s) lLget 
-(2s) do delBf 1 ] l-(s) 3rolld 
->str kSAh prep(sl,eh) +(2st)! 
swap B2(n)<=Bl( 1) dup;=0(s)? 
until drop ->list(s) «LIBRAIRIE(S);» 
swap 1 CHOOSE — 0(r)? ?:skip 

PRG dup ssize(st) dup <4h> -(2s);svvap 
sub(st.2s) CutRC(st) drop STR-> MENU 
END 

END 

END 


breaks(cp) do pul I B [ 1 ] dup 
HidRci(nm)? pifte 

PRG swap;dup HidPurge(nm) HomeSto(_,gn) END 
drop 

dup;=0(s)? until drop 
END 
END 


VII) L’utili t aire PASSWOR 1). 

Il permet de se rendre dans le répertoire caché à condition de connaître le 
bon mot de passe (dans cet exemple le mot de passe est «O K»). Vous 
aurez donc accès aux variables que vous avez cachées sans pour cela être 
obligé d’utiliser DECACHE. Pour sortir du répertoire caché, il suffit d’ap- 
puyer sur Flèche bleue + [‘] sur S(X) ou sur Flèche verte + [‘] sur G(X). 
Mettre le mot de passe sur le niveau ! de la pile sous forme de chaîne de 
caractères et lancez PASSWORD. 


V) Comment se procurer PCDEV? 

Si vous ne possédez pas PCDEV, vous avez la possibilité de vous le pro- 
curer en vous adressant aux auteurs. Pour 50frs, vous recevrez alors la 
version complète de PCDEV ainsi qu’une documentation et des fichiers 
exemple. Vous recevrez automatiquement les nouvelles versions de 
PCDEV (Version prévue sous Windows). Contactez : 


SAILLOT MICKAËL 
BOURVILLE 
76740 FONTAINE LE DUN 
Tel: 35-97*47-92 (Après 20 Heures, tous les jours) 


ou 


EMMANUEL FOLLIN 
291 Avenue de la Hêtraie 
76550 OFFRANVILLE 

Tel: 35-04-29-61 (Après 20 Heures, le week-end) 


PRG 

sdepth =0(s)? 

PRG 



Dans le prochain numéro de POCHE COMPUTERS, le Jeu JACKPOT 
sera donné au format PCDEV. (Avec toutes les options, comme au casino 


et en plus avec table des scores). Ce programme a été réalisé par 
JAN1N et moi-même. Il est compatible S(X) ou G(X). 
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VOS HP PRENNENT DES COULEURS !!! 

par David WINTER 


Dans cet article, nous allons étudiée ce que la plupart des programmeurs HP utilisent dans leurs program- 
mes pour la gestion du graphisme ; les niveaux de gris. H concerne aussi bien les HP4SG(x) que S(x). Nous nous 
pencherons en premier lieu sur la notion de niveaux de gris , puis nous verrons comment en obtenir par logiciel. 

1) Oii’appelle-t-on des niveaux de gris ? 



Vous avez tous vu quelque- part des émissions de télévision 
en noir et blanc... Comme vous l’avez remarqué, l’image obtenue 
a l'écran était constituée de nuances de gris, s'étendant du noir 
jusqu au blanc. Par analogie aux I V N/B. vous verrez sur P écran 
de votre HP48 des images différentes de celles que vous voyez 
d'habitude. En effet, au lieu de ne voir que du noir et du blanc, 
vous verrez aussi des couleurs intermédiaires, plus ou moins fon- 
cées: des niveaux de cris. 

4 — ■■ 

2) Les niveaux de gris sur HP4S 

a) Affichage et méthode de codage d’images en niveaux de 
gris 

A la grande différence des téléviseurs N/B qui affichent plu- 
sieurs nuances de gris à la lois sur chaque image, la HP n’affiche 
que du noir ou du blanc. Donc, si nous le supposions possible, 
pour afficher à l'écran de la HP une image TV en N/B. il faudrait 
alors décomposer celle-ci en autant d’images que de nuances de 
gris affichées (saut le blanc), et afficher successivement et très 
rapidement toutes les images obtenues. Comment expliquer cette 
procédure ? 

Imaginons une image de trois couleurs : noir, gris et blanc. La HP 
n étant pas capable d’al ficher le gris, il va falloir décomposer cette 
image en deux images affichables (deux car i I y a deux nuances de 
gris : le noir et le gris). 

Si on affiche alors ces deux images très vite successivement, pour 
un point situé au même endroit sur les deux images, celui-ci va 
apparaître noir s'il est présent sur les deux, gris s’il est présent sur 
I une des deux, blanc s'il est présent sur aucune des images. Cette 
méthode reste la même si l’on désire afficher plus de nuances de 
gris, mais il ne faut pas oublier que la HP fonctionne à une certaine 
vitesse: plus vous voulez afficher de nuances de gris, plus le résul- 
tat final est de mauvaise qualité (a cause des clignotements dus 
aux affichages trop nombreux). 

Voyons a présent la méthode utilisée par les programmeurs pour 
obtenir des images en niveaux de gris. Ces images étant pour la 
plupart composées de quatre nuances (noir, g iis foncé, gris clair, 
et blanc), nous étudierons le cas des images à quatre niveaux de 
gris. Il paraît logique, selon la méthode expliquée plus haut, de 
décomposer l'image finale en trois images (c'était d'ailleurs la toute 
première méthode que l'on employait au début de l’histoire des 
niveaux de gris sur HP...), étant donné qu il y a trois nuances de 
gris. 

La HP utilise pour le graphisme un objet pouvant contenir une 
image: le GROB, dont les dimensions sont variables. Par exemple, 
si vous faites LCD. vous obtiendrez un Graphie 1 3 I *64: c’est un 
GROB de 131 pixels de large sur 64 de haut contenant l'image 
actuellement affichée à l’écran. 

trois images seront donc stockées dans trois GROBs diffé- 
rents. 

Or» d existe un moyen plus économique en mémoire que l' utilisa- 
tion de x images pour x niveaux de gris. En effet, nous savons que 
tout entier est décomposable en puissances de deux. Donc nous 
pouvons décomposer le nombre de niveaux de gris en puissances 
de deux, calculer le nombre d'images nécessaires, et afficher cel- 


les-ci autant de fois que leur numéro d'ordre puissance 2 ... Prenons 
l’exemple d'une image en 4 niveaux de gris. Cette image peut con- 
tenir 3 nuances de gris en plus du blanc. Comme 3= I *2 A j + 1 *2 A 0 
(le symbole " A ” se lit " puissance "), nous n'avons besoin que de 
deux images, car la plus grande puissance de deux utilisée est 2. 
Dans notre cas. on affichera une fois la première image, deux fois la 
seconde. 

El ceci reste valable pour une image contenant autant de niveaux 
de gris que vous le vouiez: si par exemple une image comporte 14 
niveaux de gris, il faudra 4 images et on les affichera comme ceci: 
une lois la première, deux lois la seconde, quatre fois la troisième, 
huit fois la quatrième. 

Ceci se résume dans le petit tableau qui suit: 


Numéro 

d’image 

N b de 
niveaux 
de gris 

Nombre 
d’affichages 
successifs 
de la 1ère 
image 

Nombre 
d’affi. 
successifs 
de la 2è 
image 

Nombre 
d’affi. 
successifs 
de la 3è 
image 

Nombre 
d’affi. 
success. 
de la 4è 
image 

4 

(2GROBS) 

1 

2 



8 

(3GROBS) 

1 

2 

4 


16 

(4GROBS) 

1 

2 

-j 

g 


Maintenant que nous savons combien d'images utiliser selon le 
nombre de niveaux de gris, il faut savoir comment coder ceux-ci. 
Dans notre cas. nous avons 4 niveaux de gris et nous utilisons deux 
images, la première étant affichée une fois, la seconde deux fois. 
Les nuances de gris se codent de la façon suivante: 

- Si un point localisé au même endroit sur les deux images est noir 
sur ces deux images, le noir est affiché trois fois sur trois, donc la 
couleur finale est le noir. 

- Si au contraire, ce point est noir sur lu seconde image et blanc sur 
la première, le noir est affiché deux fois sur trois, donc la couleur 
finale est le gris foncé. 

- Si maintenant ce point est noir sur la première image et blanc sur 
la seconde, le noir n'est affiché qu'une fois sur trois, donc la cou- 
leur finale est le gris clair. 

- Si ce point est blanc partout, la couleur finale est le blanc. 

h) Programmation de visionneurs 

Nous connaissons maintenant le principe de codage des couleurs. 
Voyons à présent le côté informatique du problème, à savoir l’affi- 
chage successif des images. 

Notre premier essai d'affichage va utiliser le principe du recopiage 
des images sur l’écran de la HP. 

Bien-sûr, le programme que nous allons utiliser fonctionne avec 
deux images, comme nous venons de le voir. Mais nous allons 
d abord utiliser une petite astuce. En effet, nous savons que les 
GROBs de la HP sont de dimensions variables. Donc, au lieu de 
travailler avec deux GROBs de largeur X et de hauteur Y, nous 
pouvons travailler avec un seul GROB de largeur X et de hauteur 
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- VI ar exemple, .si nos deux CROBs précédents font 131 pixels 

GRObTI ^ f Ut ; a '° rS n0US pouvons cailler avec un seul 
GROB de I 1 pixels de large sur 1 28 de haut. Dans un tel cas la 

P ,e ' x , ,"“ 8e SC tI0Uve sur la Première moitié du GROB à sa- 
votr les 64 premières lignes, et la seconde image se trouve sur h 

seconde moitié, c’est à dire les 64 lignes restâmes. Illustrtms n, m 

ce que nous venons de voir à l’aide de croquis. 

fout d abord nous avons trois images. Dans cet exemple nous 
a icheions la lettre A en noir, la lettre B en gris foncé, et la lettre 
C en gtis clam Nous obtenons ceci ; 


îvùvr ' K ,#BDE7h Sllr G(x) el * 7AE5H sur Six) : 

DJD_() 11920 0800) 11920 380)0 F85H 



Ensuite, nous utilisons la méthode de l’affichage en fonction des 

, issances de c : la première est affichée une fois, la seconde deux 
Tois. On obtient ceci : 


49F2 1 
720F4 
F20F4 
CF 146 
FF22 1 
1 1 920 
70140 
DF040 
0B82 1 
1 1 920 
94040 
27000 
1 1 920 
0B82J 
06000 
B2 1 30 


4B2A2 9F345 
pour les G(x) 


88130 9 B 1 36 


pour le 

‘s Six ) 




1 ! 920 

04000 

1 1 920 

38000 

F85 1 i 

OB82 1 

94040 

F3040 

1 1 920 

03000 

27000 

F85 1 1 

0B82 1 

DA 040 

99040 

1 1 920 

as 000 

F85 i ! 

FF22 1 

0B821 

3F040 

76040 

1 1 920 

R4000 

F85 1 1 

FEF30 

1 1 920 

04000 

5662 1 

CF 1 46 

38000 

1 1 920 

04000 

F29 1 1 

0B821 

i ! 920 

74000 

1 1 920 

03000 

1 1 920 

F85 1 1 

0B82I 

35040 

1 1 920 

84000 

F2000 

1 1 920 

07000 

F85 1 1 

FF22 1 

3A040 

1 1 920 

05000 

B 1 1 40 

1 1 920 

F85 1 1 

0B821 

5662 1 

75660 

1 603 1 


J 


A C 



Pms mms regroupons nos deux images précédentes dans un seul 
UKUB, et on obtient ceci : 



f assons maintenant à la partie logicielle : F affichai. Voici le lis- 
ting hexadécimal du premier programme d affichage. Vous devez 
itntrei les codes dans une chaîne de caractères sans espaces ni 
retours a la ligne, et vérifier le CRC en faisant DUP BYTES. S’il 
est correct, vous pouvez compiler la chaîne. Sinon, corrigez- la. 

r VISION 1 (# 30 A 1 h) "■ ~ ~ — 

D9D20 FC2E4 CF 146 EF1I6 CF 146 11920 
38000 11920 04000 F29I1 CFI 46 20016 

FFF30 II 920 04000 11920 38000 11920 

08000 F2911 D0040 9DI30 2A170 94040 

9DI30 0B821 OB82J 0B821 4)740 8CI70 

C4130 H6230 B2130 


Compilez -le après vérification du CRC et exécutez-Ie. Ne vous 
Pompez pas dans la saisie des codes, entrez bien la ffime qui cor 

HR °r m reXéCUti ° n dü P^ramme obtenu, 
s allez \ ou très rapidement une image à récran: n’en tenez iris 

S a J la T hine qU1 le P— e. Vous ^l^ 

dqUeS liactlons de seconde plus tard un GROB de 

plus tard ^ ^ St ° ckez “ la dans Line variable pour 

Mainte nam. nous pouvons essayer le programme VISION I Ce- 
lui-ci, comme les versions à venir, doit être exécuté après avoir 

op'rn Lm d° H ^ 1 *'f SUr ‘ a Pi,e de Ia HP Analysons le résu 1- 

servon une ^ Sam ^otements, nous ob- 

se.vons une vague image qui clignote de partout. Essayons de 

comprendre pourquoi un tel phénomène se produit. Nous affi- 
chons nos images a la suite comme prévu. Or. un poste de télévi- 
sion a ic ie t es images par balayage, et dans notre cas, nous ne 

"°T ^ TT dL1 bala W* l’écran. Donc, par exemple si 
fc balayage de 1 écran de la HP en est à la ligne 20. et qu’à ce 

nKmimitda. nous décidons d’afficher une image, alors ses 20 prê- 
cher "im 't' nC SeiWnr PaS afflchces - Autrement-dit, il faut affi- 

b v7v if JUSte aVam ; qUe lü Première !i 8ne de l’écran soit 
‘ HC - Md heureusement, les fonctions usuelles de la HP ne ner- 

me tun pas a gestion du balayage, donc nous devons aérer celui- 

ci en langage-machine. Voici les codes d’un tel programme : 


Pour compiler, exécuter le programme suivant : 


+ " " + SWAP + 


" GROB 8 " OVER 8IZE 2 / 

OBJ-> # 40 1 7h S YSE VAL #56B6h SYSEVAt 

DROP NEWOB » 


Stocke/ le résultat obtenu dans une variable, et ne tentez pas de 
éditer sous peine de le détruire. 

11 ne n °“ Sreste P |US t l u ' à ‘■'réer une image. Voici un petit pro - 
gt amute latsan, une telle opération. Faites attention en entrant les 
codes en ce qui concerne les lignes 3 et 4: prenez en compte la 

HP48S(!, VOUS aVeZ “ ne HP48G(X) ’ la “S* 4 ^ le cas d’une 


VISION 2 

(#FF2Ch) 


— 

D9D20 

FC2F4 

CCD20 

5COOO 

8FB97 

F 8 4 F 1 
F7808 

4381F 

098 1 8 

F09 1 B 

00 1 00 
3 7 FF F 

606 1 3 

0C 1 5C 

0 1 952 

40880 

0C2D5 

1 992 1 

F02 1 () 

0DC73 

0DC79 

308F4 

7C005 

8E190 

0AFB 1 

9923 1 

14213 

015A7 

1 D02 1 

59780 

B83I 1 
IB2I3 

5F080 

0 

8BJ7F 

1 5 E08 

08 A 1 7 


60808 
1 5E0A 
1 5433 
407F3 
5C0IB 
808D9 
F 1 4 10 
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LA RUBRIQUE DU HP 95-100-200LX 

par JL LECOMTE 


TOPOLAND où l'art et la manière d'utiliser le HP1G0 î 

Le cabinet de géomètres Phalippou a Martigues (13), nous a expédié un dossier concernant une 
application qu ils ont réalisé a partir d un HP 100. Les applications professionnelles intégrant des 
pockets sont de plus en plus présentes dans le monde industriel, nous avons donc jugé utile de vous 
faire part de cette réalisation, 

lopoland est un carnet de terrain intelligent permettant la collecte des données venant d'appareils de 
j§ mesure de topométrie habituellement utilisés pour les relevés de terrain et cotations diverses à 
1 usage des géomètres experts (tracé des routes, infrastructures, habitations, usines etc...). 

Le HP 1 00 (200) est directement en liaison avec l'appareil mesureur par la RS232, le logiciel Topoland 
permettant d’exploiter immédiatement et sans retour obligé au bureau. Une nouvelle philosophie du 
travail du technicien est développée, lui permettant d’innover dans les services rendus, notamment 
auprès des entreprises de travaux publies, et lors de contrôles, car les résultats sont immédiatement 
connus. L'idée d'utiliser un ordinateur de poche redonne à cet appareil sa vocation première ; la 
portabilité. Les informations (relevés de points) peuvent être à nouveau recalculées. Le tout étant 
transmis, en rentrant au bureau, dans un micro classique, exploité avec le logiciel Autocad (dessin 
technique) et sorti sur traceur sous forme de plan. Topoland est basée selon la méthode par 
1 ransmission de Gisements, et manipule les points de relevés connus en X,Y,Z. 11 existait jusqu'alors 
d'autres systèmes à base d'ordinateur, mais ceux-ci sont souvent très coûteux, encombrants et peu versatiles. Amis lecteurs, si vous 
connaissez d auties applications professionnelles (dans n importe quel domaine) où un pocket est présent, inlormez-nous ! 



LES LANGAGES DE PROGRAMMATION DES HP 95-100-200... 

Nous allons faire un tour d’horizon des possibilités de programmation à partir des pockets HP. 


Les langages intégrés au HP: 

Pas moins de 5 langages différents sont proposés. 

■LE MACRO LANGAGE LOTUS. Inhérent au fameux tableur 
intégré, il permet de résoudre quantité de problèmes plus ou moins 
complexes liés aux feuilles de calcul. 

-LE DEBUG , intégré au Dos, qui reste une valeur sûre, bien que 
limitée. 

-LE SOLVER , fleuron du calculateur HP. 

-Le système BATCH qui permet notamment de créer des fichiers 
de démarrage automatique. 

-Ui macro programmation des Touches d'utilisation. 

Les langages basic ; 

-Le "bon vieux" GWBASIC (sans doute un des plus vieux avec le 
Basic A), tourne sans problème sur les HP95- 100 et 200. Il occupe 
environ 90K (55 K en version épurée) de place mémoire. Il est 
possible d'utiliser certains raccourcis de touches de fonction : 
exemple ALT P pour imprimer. Ce langage reste un des plus utilisé 
par les débutants en raison de sa simplicité de mise en oeuvre. On 
peut se faire plaisir rapidement lors de l'apprentissage... Cependant, 
il ne faudrait pas croire que c’est un langage "au rabais"; certains 
programmes de haut niveau sont possibles en Basic. 

- Le SWIFTBASIC , lui aussi tourne sur les 3 séries de HP. Toutefois, 
une version spéciale, la 1 .06 est dédiée spécifiquement au 95LX. 
Il permet notamment d’exploiter au mieux l'affichage et le son du 
95. D'un emploi très simple également, il est plus rapide que le 
GWBASIC. 

- Le QUICKBASIC , intégré dans le DOS 5.0, est une version plus 
élaborée et plus moderne du Basic. Il autorise notamment la 
suppression des numéros de ligne et la création de labels. C’est un 
bon apprentissage à la programmation dite "structurée". Il tourne 
aussi très bien sur les trois séries HP. 

- Le TURBOBASIC de chez Borland, lui possède l'avantage de 
pouvoir être compilé. C’est à dire qu’un programme peut être 
transformé en langage machine et devenir autoexécutable. Le sain 


de place mémoire est intéressant à partir d’une certaine taille de 
programme car, il doit transporter son "noyau" (environ 45K) pour 
pouvoir fonctionner en autonome. Le gain d'exécution est lui aussi 
très sensible. 11 fonctionne correctement, sur le 100 et le 200LX, 
moins bien, sur le 95LX (à cause de son écran plus petit). Attention 
aussi à certaines fonctions spécifiques, ainsi que celles pouvant 
faire appel à certaines adresses de la ROM. 

Les langages Pascal : 

On ne présente plus le Pascal. Langage préféré des français, il est 
très étudié en université. Le débutant trouvera peut être 
l'apprentissage plus délicat qu’avec le basic. Cependant, il prendra 
des habitudes très précises quant aux aigorythmes de 
programmation. En effet, le Pascal ne supporte pas Tà peu près. Il 
permet d’aller très loin en informatique, et reste suffisamment souple 
et évolué. 

- Le Tl RBO PASCAL dont la version 3.02 sera préférée en raison 
de sa taille réduite. Par contre, le module graphique ne tourne pas 
sur le 95 L A. Si vous désirez une programmation orientée objet, il 
vous faudra alors acquérir le Pascal de chez Borland version 5.0 
ou supérieure. 

- LE PASCAL DE BORLAND ; la version 7.0 tourne parfaitement 
sur le 100-200LX ; par contre, problèmes de graphique sur le 95. 
Très puissant langage. 

Le langage Eorth ; 

"Vieux" langage (si tant est qu'on puisse parler d'âge en informatique 
; tout va tellement très vite), le Forth ne mérite pas le 
désintéressement qu’il suscite chez beaucoup de programmeurs. 11 
est ultra rapide et très peu gourmand en place mémoire. 
Particulièrement adapté aux calculs mathématiques, il est aussi à 
l'aise dans d'autres domaines. 

-UT IL FORTH dans sa version 3.0 est adapté aux HP, n’occupant 
que 30K de mémoire. N’ayant pas d'éditeur intégré, on se servira 
du MEMO du HP pour écrire les programmes. Il comprend un 
assembleur-désassembleur et un interpréteur-compilateur. 
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par JL LECOMTE 


Le langage C : 

Il s agit là d un langage très évolué, souvent intégré dans des 
applications de haut niveau. Plus souple et plus aisé pue le langage 
machine à mettre en oeuvre, il est pourtant presqu'aussi puissant. 
On le retrouve par exemple dans de nombreuses ROM de pockets, 
constituant le cœur même des applications internes. 

-Le C+ + de Borland. Les versions 1 .5 et 2.0 tournent sur les 100 
et 200 LX (de préférence 2MB) ; ne fonctionne pas sur le 95LX. 
De plus il requiert un carte mémoire additionnelle de 5MB. La 
gestion du graphisme des HP est particulièrement puissante. 

-Le QU IC A ( de Microsoft. Toutes les versions tournent sur les 
95- KH) et 200 LX. 11 a l'avantage d'être moins gourmand en 
mémoire; 400K en interne plus une carte de 2MB ou 3MB. La 
gestion graphique n'est possible que sur les HP 100 et 200LX ; pas 
sur le 95 à cause de son écran. 

-Le Personal C Compiler (ou PCC ) est une version shareware 
(logiciel à prix très réduit) très populaire pour pocket HP. qui 

concu nence sérieusement Borland et Microsoft, (se connecter par 
modem sur COMPUSERVE). 


Le langage machine : 

Appelé aussi le langage d'assemblage car il utilise un logiciel nommé 
assembleur pour I écriture. On atteint là le summum de la 
programmation, et de la difficulté aussi. La moindre petite erreur 
et tout se plante... Les artifices utilisés pour communiquer avec le 
microprocesseur sont très réduits. Chaque opération mathématique 
ou autre est pratiquement à reconstituer soi même en faisant appel 
au propre langage du "cerveau" de l'ordinateur. Aussi, la rapidité 

et la puissance sont au maximum. Langages à déconseiller aux 
débutants. 

-Le MASM (Microsoft Assembler) tourne sur tous les HP. Il n'a 
besoin que de 25 6K de mémoire, il permet de traiter le graphisme. 
-Le /ASM (Turbo Assembler - version 2.5) de Borland fonctionne 
également sur les trois HP. Comme le MASM, il n'a besoin que de 
256K et traite le graphisme. 

Autre langage : 

-LeAWK, était à l'origine une branche opérante du système UNIX. 
Il s est développé et présente maintenant également un 
environnement particulier pour les HP. (voir COMPUSERVE) 



UN NOUVEAU POCKET CHEZ HP : Le HP200LX 

Après le 95LX, puis le 1 00LX, voici le 2Q0LX. Ce dernier reprend les caractéristiques du 

1 00LX : esthétique, taille, écran, mémoire (LMB ou 2MB), mais apporte certaines 
innovations. 

Ln nouveau logiciel intégré : Pocket Quicken, permettant la gestion de toutes opérations 

financières personnelles : compte-chèque, compte épargne, cartes de crédit, espèces et 
notes de frais. 

Concernant les autres logiciels résidants, ceux-ci sont quelque peu améliorés par rapport 
à ceux du 100LX. Ces modifications portent sur des détails de fonctionnement ; icônes, 
affichage, tableaux, mais non sur un remaniement complet. La compatibilité entre 
HP100LX et HP200LX est à 98%. On regrette qu’HP n'est pas apporté de véritables 
transfoi mations, notamment au niveau de la rapidité, et en particulier de la base de données. 

Le futur acquéreur préférera le modèle à 2MB de mémoire, celui-ci étant beaucoup apte 

^nn'r'v' 01 "" 6 ' * n i 0mbreu '' 1 ,oglciels DOS ; le modèle ,MB étanI trop limilé. D'autre part, un nouveau kit de connexion PC <-> H 

; W,f T v ■ n I référence exac,e USI HPF102IC " fo " ction “ S0l “ Windows e, a été considérablement amélioré pt 

rappoit a celui du HP100LX. Il fonctionne d’ailleurs également avec ce dernier. F 


A PROPOS DU KIT DE CONNEXION POUR HP200LX 

De nombreux utilisateurs se demandent à juste titre s'il e: 
indispensable de se procurer le kit de connexion pour HP <-> P( 
Il faut dire que cet accessoire n’est pas donné, puisque vendu au 
alentours de 8001' ! Il est tout à fait possible de communiquer ave 
un simple câble de liaison série entre ces deux ordinateurs, et e 
utilisant le logiciel interlnk (intégré dans les DOS à partir des 5. 
; voir page 42 de POCHE COMPUTERS N°3). Cependant, le k 
HF apporte un confort d utilisation indéniable, qui peut justifia 
son acquisition. La nouvelle mouture de ce kit. qui tourne sou 
Windows est remarquablement élaborée. L’écran de votre H 
apparaît sur le PC, et vous pouvez donc émuler toutes les fonction; 
en particulier les applications de Gestion des Information 
Personnelles (GIP) destinées au PC. 11 est possible aussi d 
fusionner, synchroniser et convertir les fichiers de données G1I 
Enfin, un redirecteur de Laplink Remote Access permet d accède 
aux unités du HP à partir du PC. 


DES CARTES MEMOIRE PCMCIA 
COMME S’IL EN PLEUVAIT ! 

Voici un petit rappel concernant l’utilisation des cartes PCMCIA 
sur les HP. Le HP 95LX ne peut utiliser que cartes de type I. Les 
HP 100 et 200LX, peuvent utiliser des cartes de type I et II 
(épaisseur respectives : 3,3mm et 5mm). Les connecteurs de ces 
cartes sont identiques. Seuls changent les signaux internes. Le type 
II permettait seul auparavant la possibilité de carte fax-modem. Or 
nous trouvons maintenant des cartes fax-modem de type I. Le type 
II permet une plus importante intégration de mémoires (jusqu'à 
80MB doublée par Stacker), alors que le type I pour le moment ne 
permet que 32MB, et on annonce un mini disque dur de 105MB 
en type II pour 1 995. Les trois principales technologies employées 
sont : les cartes SRAM, les cartes FLASH et les cartes ROM. 

La carte SRAM est celle qui permet des écritures, des effaçages et 
des lectures de fichiers sans contrainte. Elle est relativement fiable, 
mais assez onéreuse rapport prix-quantité de mémoire. 
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LA RUBRIQUE DU HP 95-100-200LX 


La carte FLASH {ou flash eprom) permet des lectures sans 
problème mais le processus de récriture et de l’effacement des 
données, lui, est relativement contraignant. Cela suppose d'une 
part un logiciel spécial d'écriture, et d’autre part un effaçage sélect if 
de la carte par banque ou secteur prédéfinis. On ne peut pas, par 
exemple effectuer un effaçage précis d’un fichier, il faut effacer 
toute une zone de mémoire. Le rapport quantité de mémoire-prix 
est bon. Attention à la consommation d’énersie avec votre HP. 
Lors de l’écriture, notamment, vos piles pourraient bien être à plat 
assez rapidement. Certaines cartes Flash demandent une tension 
de 1 2volts pour écrire, d'autres du 5 volts. Le 1 1P95 n’accepte que 
les 12V. Les 100 et 200LX acceptent l’une ou l’autre. La carte en 
5V consomme évidemment beaucoup moins d’énergie que celle 
en 1 2V. Par contre ses accès lecture-écriture sont beaucoup moins 
rapides. Attention à ne pas comparer les vitesses atteintes par des 
cartes SRAM (quasi instantannées) et celles par des FLASH ! 
Toutefois, certains fabricants commencent à proposer des cartes 
5V plus rapides. 

Autre problème éventuel, les cartes Flash sont données pour 
100000 écritures environ. Au delà de ce nombre (cela peut 
représenter une période de plus de 1 0 années ou de quelques années 
seulement si les effaçages et écritures sont fréquents), la parfaite 
impression en mémoire n’est plus garantie, et des erreurs peuvent 
survenir. En fait, le temps d’écriture à certaines "cases’’ mémoire 
de la carte devient de plus en plus long. Il existe un programme 


spécifique, contenu dans le programme ATA de SUN DIS K (logiciel 
global de gestion de cartes Flash) qui permet de tester les temps 
d’écriture. Si le temps est trop long, il classe la case mémoire comme 
défectueuse, et replace son contenu dans la case immédiatement 
après. Ce test, effectué I ou 2 fois par an, suffit à préserver le 
parfait fonctionnement de la carte Flash. 

D’autre part, concernant la compression des données sur carte par 
un logiciel comme STACKER ou DI ET, celle-ci ralentit 
considérablement les accès-carte. Réfléchissez avant pour savoir 
si vous avez vraiment intérêt à utiliser un système de compression. 
Enfin, concernant la réelle compatibilité entre les cartes Flash de 
différentes marques : attention ! il existe actuellement un standard 
de fait avec le fameux logiciel ATA (cartes IBM-SUNDISK-HP- 
EPSON-ACF-PROLINEAR-SE AGATE etc...) qui garantit une 
parfaite compatibilité avec le DOS dans la mesure ou les secteurs 
sont formatés exactement comme sur un PC de bureau ; 5 1 2 octets 
par secteur. Par contre, d’autres cartes utilisent un autre système 
souvent non compatible avec les premières citées (INTEL- AMD- 
MAXTOR etc...). Ces dernières cartes ne fonctionnent pas moins 
bien que les premières, leur logiciel interne est différent c’est tout. 
Concernant I utilisation des Flash, il faut savoir que c’est un système 
qui est utilisé en aéronautique et en aérospatiale, gage de sécurité. 
Les cartes ROM elles ne peuvent être que lues, impossible de les 
effacer et les reprogrammer. Elles sont en général préprogrammées 
par des éditeurs de logiciels. Leur coût est relativement bas. 


TROUVER DES PROGRAMMES SOUS DOS ET LES FAIRE TOURNER SUR VOTRE HP ? 


Cela est tout à fait possible. Un des moyens les plus intéressants est d'acheter des logiciels en "Freeware" ou en "Shareware" sous DOS 
(et non sous Windows ! ), ou bien de les télédécharger gratuitement (saut prix de la communication !) à partir d'un modem ou d’un simple 
minitel + un PC, au travers des multiples serveurs (36. 1 5 TE AS ER - 36. 15 SM 1 - etc...)qui souvent vous fournissent le câble (spécial) 
et le soit de déchargement pour un prix dérisoire (moins de 100F, quand ce n’est pas gratuit). 

C ependant, pour faire tourner ces logiciels, plusieurs règles essentielles s'imposent. Votre HP ayant un processeur équivalent au 8086 
(ancien PC XT) ainsi qu’un écran CGA, votre choix sera d'autant limité. Donc tout logiciel nécessitant au moins un 80286 et un écran 
type EGA ou VGA ne fonctionnera pas sur votre F1P. De plus, la taille mémoire joue son rôle. A ce sujet, les heureux posseseurs de 
HP100LX 2MB ou HP200LX 2MB seront beaucoup plus favorisés. Toutefois, ce problème sera contourné avec l'acquisition d’une 
carte mémoire de taille plus ou moins importante (jusqu’à 40MB !!!). Enfin, les programmes nécessitant une mémoire étendue ne 
fonctionneront que sur les HP 100 et 200, pas sur le 95. En résumé, rassurez-vous tout de même, ces logiciels tournant sans problème 
sur vos HP ne sont pas si rares que ça. Si l'on évalue aproximativement à 5000 logiciels proposés sur le marché des serveurs, on enlève 
60 C des softs "Windows", puis 80% du reste à cause du processeur ou de la mémoire, le solde sera quand même de 400 programmes 
environ susceptibles de fonctionner corectement. Partez en chasse pour les trouver ... 

MICROCARDS VOUS PROPOSE DES PRODUITS INTERESSANTS 

POUR VOTRE HP 95/100/200LX 

* Un prix très spécial pour une carte PCMCIA SRAM 1MB : 690F TTC !!! (Jusqu'à rupture de stock) 

* Nouveau : le lecteur de disquettes 3,5pouces 1,44MB sur carte PCMCIA pour les HP100 et HP200. Contrairement au 
lecteur sur port série (très lent), ce nouveau système est très rapide et moins cher : prix 2290F TTC 

Le paralink 3 transforme la sortie série de votre HP en sortie parallèle. Ce qui permet notamment d'y adapter une 
imprimante classique : prix 690F TTC 

* Des cartes Flash PCMCIA depuis 256KB jusqu'à 20MB à prix cassés ! (voir bon de commande) 

* Des accumulateurs Métal Hydrure Nickel très puissants de 1200 mA remplaceront avantageusement vos piles alcalines: 
prix unitaire 46F TTC 

* Le logiciel STACKER v. 4.0 vous permettra d'augmenter la taille mémoire de vos cartes selon un facteur 2,5 environ. 

* La carte PCMCIA FAX-MODEM de chez EXP qui permet de communiquer depuis votre HP 1 00/200 à 9600 bds. De plus, 
innovation très intéressante, le logiciel de communication fourni est intégré en rom dans la carte, n'occupant pas de place 
dans la mémoire du HP : prix 2490F TTC 
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TRANSFERT SERIES 3<>ATARI ST 
(Vincent BESSETTES) 

Le script permettant te transfert avec un ATARI ST, Les fichiers 
doivent être sur le disque interne du PSION et le programme 
effectue le transfert avec le disque A de !' ATARI, celui-ci devant 
contenir les mêmes répertoires que celui du PSION. Avant de 
charger un programme sur le PSION, vérifier la répartition de la 
mémoire dans le menu général (sinon le PSION risque de ne pas 
«suivre» L ATARI lors du transfert). Pour tous les programmes de 
transfert, le port série doit être configuré à 2400 bauds, données 
sur 8 bits, sans protocole, sans parité,... 

PROGRAMME 

sctup (baud=240Q :data=8 :stop=l 

parity=NONE :handshake=NONE 
fai 1 -N ONE :echo=OFF 
newline~»<$dx$a>» 
backspace=»<$8>» 
timeout=0) 

début: 

drain 

menu»commande :» ( 

«sauvegarde» goto save 
«chargement» goto load 
«fin» goto end) 
load: 

query «chargement ...» («nom :»,sl) 

sendwait 20 «L-<sl>»,»OK<$dx$a>» goto début 

receive sl,»ascii» 

goto début 

save: 

query «sauvegarde ...» («nom :»,s 1 ) 
nexists s i goto début 

sendwait 20 «S=<sl>»,»OK<$dx$a>» goto début 
transmit s l,»ascii» 
goto début 
end: 

send «fin» 
exit 


PSION (GFA 3) ATARI ST (Vincent BESSETTES) 

Pour tous les programmes de transfert, le port série doit être 
configuré à 2400 bauds, données sur 8 bits, sans protocole, sans 
parité,... Placer la disquette correspondant au disque interne du 
PSION dans le lecteur A avec les mêmes répertoires dans le même 
ordre puis lancez le programme PSION sur T ATARI (le port série 
doit avoir été d’abord correctement configuré), vous pouvez alors 
effectuer les chargements et sauvegardes du PSION. 

Les opérations effectuées sont indiquées à l’écran de L ATARI, 
ainsi que les messages d’erreur. 

PROGRAMME 
DEFMOUSE 0 
HIDEM 
CLS 
CLEAR 

RESERVE 100000 
CLEAR 

a%=GEMDOS(72,L 1 3 1 072) 

OPEN «U»,@ 1 ,»aux:» 

DO 

WH1LE INP?(l)o0 
d$-INPUT$(l,@l) 


WEND 

LINE TNPUT @ 1 ,d$ 

EXIT IF d$=»FIN» 

IF LEFT$(d$,2)=S=» 

d$=»A:»+RIGHT$(d$,LEN(d$)-2) 

PR INT «sauvegarde dans «;d$ 

PRINT @l,»OK» 
i%=0 

j%-TIMER 
REPLAT 
IF 1NP?(1)<>() 

POKE a% +i% , A S C (I N PUT$ ( 1 1)) 

INC i% 
j%=T!MER 
END IF 

UNTIL (TIMER- j % )>500 
ON ERROR GOSUB erreur 
B SAVE d$,a%,i f /r 
ON ERROR 

PRINT «fin sauvegarde...» 

ELSE 

IF LEFT$(d$,2)=»L=» 
d$=»A:»+RIGHT$(d$,LEN(d$)-2) 

PRINT «changement de «;d$ 

IF EXIST(d$) 

OPEN «i»,@2,d$ 
lg%=LOG(@2) 

BGET @2,a%,lg% 

CLOSE @2 
PRINT @ 1 ,»OK» 
j%=TIMER 
WHILE (TIMER -j% 

WEND 

FOR i%-0 TO lg%-l 

PRINT @ 1 ,CHR$(PEEK(a%+i%)) 

N EXT i% 

END IF 

PRINT «fin chargement...» 

ELSE 

PRINT «en*eurde transmission» 

ENDIF 

ENDIF 

LOOP 
CLOSE @1 

VOID GEMDOS(73,L:a%) 

EDIT 

PROCEDURE erreur 

RESUME N EXT 
RETURN 

ASTUCES pour HP28S (Jérôme RENARD) 

Nous allons créer un répertoire secret (comme sur une HP48) 
qui se notera ' 1 (vide). Pour cela, il faut faire HOME PATH puis 
assembler la chaîne "21D20QQ” (soit avec ASSR de Régis 
Duchesnes), soit avec tout autre assembleur (ASSCOD28 3,5 
octets Somme contrôle - 588). Ensuite, il faut exécuter CRDIR 
puis ORDER. Le répertoire secret se trouve être le premier 
carré vide dans HOME (simple non ! !!). Deuxièmement, pour 
faire croire à un memory lost, il faut stocker toutes les autres 

w 1 

variables de HOME dans 1 ’ on place alors le programme 
RESET dans ’ ’ : 

" CLLCD 51 CF CLEAR 1 4 FOR X X STR 58 CHR + 5 X 
DISP N EXT " memorv lost” 1 DISP 1400. 1 BEE P HOME” 


48 


Poche computers N°4 




POCHE COMPUTERS 

8 

H 

:E 


TRUCS ET ASTUCES 



Transfert Casio FX 850P <> Atari ST(GFA2) 
(Vincent BESSETTES) 


Pour tous les programmes de transfert, le port série doit être 
configuré à 2400 bauds, données sur 8 hits, sans protocole, sans 
parité — Indiquez le programme a sauvegardera ['ATARI ST puis 
tapez sur le CASIO: SAVE «COMO:5,N,8, 1 , N, N, N, N, N» sans 
avoir appuyé sur ENTER puis appuyez sur ENTER. 

Lorsque Je transfert est terminé, L ATARI affiche à l’écran les don- 
nées reçues el les sauve sur disquette. 


PRINT A(0); «: «; CHR$(A{(»), 

JL A{ 1 ) <> 7 TH EN FRI NT A{ 1 ); «: «: CHR$(A( ! )). ELSE 
PRINTA( !);«:», 

II A (2) <> 8 AND A(2) <> 13 THEN PR INT A(2); «: «; 
CHR$(A(2)), ELSE PRINT A(2): «:», 

IL A{3) <> 9 THEN PRINT A(3); «: «: CHRS(A(3>). ELSE 
PRINT A(3): «:», 

IE A ( 4 > <> 10 THEN PRINT A(4); «: «; CHRS(A(4}): 

ELSE PRINT A(4): «:»; 

IF A (4) = 255 THEN 30 
IF J <> 36 THEN PRINT 
N EX T .1 


PROGRAMME 

Clear 

Reserve 50000 
Dim D${ 1 000) 

FileseleclChr$(65+Gemdos(25))+»:»+Dir$(0)+»\* 

If A$<>»» 


»,»». 


Open «i»,@2,»aux:» 

I %=0 

f %=0 

Repeat 

If Tnp?( I ) 

Line Input @2,D$(4%) 

Inc m 

J%=0 


Inc J% 

Endif 

Until J%> 10000 
Close @2 
Dec I % 

Open «o», @ 1 ,A$ 

For .]%-() To 1% 

Print @ ],D$(J%) 
Print D$(J%) 


REPEAT KS - 1NKEY$ UNTIL K$<»>» 

IE NOT Port THEN PRINT «» 

IF ASC(K$) = 27 THEN 30 
PRINT , 

N EXT I 

10 PRINT «Frappez une touche SVP : «; 

REPEAT K$ = INKEY$ UNTIL K$<>»» 

IF ASC( K$) = 7 OR ASC(KS) = 8 OR ASC(K$) = 9 OR 

ASC(K$) = 10 OR ASC(K$) = 13 THEN PRINT «», ELSE 
PRINT K$, 

PRINT ASC(K$) 

IF ASC( K$) = 27 THEN END ELSE 10 
20 ‘Aide 

PRINT «Syntaxe : ASCII /[Tl?]» 

PRINT «L option /T donne un tableau détaillé» 

PRINT «des valeurs ASCII.» 

END 

30 IF Port THEN DISPLAY OldDisp 


BIP-BIP pour SHARP PC-1246S (par Siegfried COUNI) 

Les pockets PC-I246S sont dotés de l'instruction Basic BEEP 
pei mettant 1 émission d un signal sonore, mais ne possèdent pas le 
BUZZER interne. Voici donc le moyen tle le rajouter. 

- retirer les 2 piles du pocket puis dévisser les 9 vis et déposer le 
cou- verc I e i nférieu r. 


F 


Close @ 1 


CODES ASCII sur PORTFOLIO 
(CAO Alexandre) 

Si vous programmez en PBAS1C (ou programmez tout court), 
vous vous apercevrez que vous avez quasiment toujours besoin 
de connaître lescodes ASCII de certaines touches de fonction. Le 
programme ASCII. BAS vous aidera à trouver ces codes. 
Syntaxe: ASCII /? pour avoir de l’aide 

ASCII fl pour avoir un tableau détaillé des codes ASCII 


» 


PRINT* , «ASCII par CAO Alexandre 
PRINT 

COM$ = UCASE$(COMMAND$) 

IF COMS = «ASCII /?» THEN 20 
PRINl «Frapper ‘Echap’ pour quitter.» 

IF COMS <> «ASCII /T» THEN 10 

IF Port THEN OldDisp = GETDJSPLAY: DISPLAY I 
DEF A(X) = 40 * I + J + X 
FOR I = 0 TO 6 
FOR J = I TO 36 STEP 5 


Positionner le circuit imprimé comme ci-dessous : 


PC* I246S côté composants 


connecteur 
1 i broches 


H 

T" 

WX 

Ld_ 




liste des composants 
R 4.7K uns 
, R lOOKcms 
Buzzer Piezo 
Transistor N'PN cuis 


B 


ÎH C vue 

l de dessus 


- souder le transistor au point A 

* souder la résistance 4.7 K au point B 

- souder la résistance 100 K au point C/ 

- souder les 2 fils du buzzer en parallèle sur la résistance 4.7 K 

- coller le buzzer sur la face intérieure du pocket 

- remonter l'appareil en prenant soin du buzzer pour éviter les 
court -circuits avec le circuit imprimé 

- remettre les 2 piles, allumer le pocket et tapez BEEP suivi d’un 
chiffre et ENTER 

- NOTA : avec les instructions CS AVE et CLOAD, il est possible 
d entendi e la sauvegarde ou le chargement du programme 
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par MARCENAC Laurent 


[.Scénario du jeu 

1er Octobre 2158, vous incarnez le scientifique le plus connu au monde pour vos découvertes telles que le télétransport. Un soir de 
décembre pendant que vous rangez vos anciens dossiers retrouvés un peu partout, vous redécouvrez un vieux dossier traitant du temps, 
de la congélation et des cellules eryogènes. Vous enlevez alors le bout de ruban adhésif qui tenait le dossier fermé et sur lequel figure 
l'inscription E.A, pour attente. Alors de vieux souvenirs vous reviennent et en lisant les premières lignes de la dernière page du dossier 
vous sursautez et vous vous précipitez dans une ancienne mine. Arrivé à la mine vous prenez une seringue verte et vous vous V injectez 
ensuite vous buvez le liquide contenu dans une petite bouteille rouge. Vous commencez à rentrer dans une galerie sombre pour vous 
éloigner de votre mallette posée au sol quand vous faites demi tour pour prendre la mallette, puis vous sombrez dans la galerie. Après 
trente minutes de marche dans l' obscurité et avoir changé de direction plus de cinquante fois vous vous cognez la tête contre du métal, 
vous allumez une petite lampe de poche, ouvrez le caisson qui apparaît à vos yeux et vous injectez une importante dose d'oxygène 
liquide. Vous entrez dans le caisson, appuyez sur un bouton et mettez un cache sur ce bouton. Vous vous réveillez alors en 3004 à 13 
heures et 36 minutes le 2 octobre. Vous tournez votre tête vers la droite et sur le second écran est inscrit la température extérieure, le 
taux d'humidité etc... Mais quand vous ouvrez le caisson tout est éclairé et vous ne savez plus où vous êtes. L' aventure commence ... 

II. Ecran principal 

Normalement a l’écran principal sont inscrites vos coordonnées et la boussole qui indique le nord. La boussole combinée au radar doit 
vous permettre de réaliser un plan de votre parcours. En dehors du radar et de la boussole à l'écran est affichée la pièce dans laquelle 
vous vous trouvez avec les portes, mais si dans ta pièce se trouve un vendeur ou un monstre les portes n’apparaissent pas. 

# Les vendeurs : dans ce jeu vous rencontrerez parfois des vendeurs. Vous pourrez les reconnaître car un chiffre est inscrit à leur gauche. 
Ce chiffre sert à vous communiquez la somme de pièces d'orque vous devez lui donner si vous voulez ce qu'il va vous donner. 

# Les monstres : vous pourrez aussi rencontrer des monstres. C es monstres ont à l'écran un chiffre entre les jambes qui précise leur 
force. Seuls les vrais monstres ont ce chiffre. 

# Les portes fermées à clé : ces portes apparaissent toujours au moment où vous entrez dans la pièce. 

# Les trésors : les trésors peuvent être des clés, des points d'attaque, des points de défense et des points de vie. 

Ils peuvent être possédés par des monstres ou simplement dans une pièce vide. 

III. Ecran «Action menu» 

Si dans la pièce se trouve un monstre vous pouvez l'attaquer grâce â l'option 1 
Si dans la pièce vous pensez que s'y trouve un objet, actionnez l’option 2. 

Si vous vouiez connaître certaines données, poser un objet dans une pièce, utiliser un objet dans une pièce ou faire une pause du jeu 
choisissez l’option 3. 

IV. Ecran de l’option 3 

Si vous avez choisi l'option 3 se présente alors un nouveau menu, 
l ) l'option I permet de déposer des objets tels que clés ou pièces d'or. 

2) l'option 2 permet d’utiliser une clé pour ouvrir une porte fermée à clé et payer un vendeur qui vous donnera des points de vie, 
d’attaque, de défense ou une clé. 

3) l'option 3 permet d'interrompre la partie en cours en éteignant le PC-E500 mais à sa remise sous tension la partie continuera là où 
vous l’aviez interrompue. 

V. Quitter un menu 

Pour quitter un combat fini, une recherche nulle ou pour sortir d'un menu appuyez sur la touche 9. 


1 'Jeu Labyrinthe version 2.0 de MARŒNAC Laurent, le 10/09/1994. 

U 

2 C'LS :A$=»LAB.GAME v2.0":L r =&3:X=&5:Y=&13:GOSUB *TXT:LINE 
(&0,&0)-(&EE,& ! Fl.X.BF 

10CEEAR :ERASE P$,R$;R:READ A,B.C,D:D1M P$(C,D),RS(C,D),R(C,D) 
20 FOR H=&()TO D:FOR G=&OTOC:READ P$<G,H>,R(G,H).RS<GTI):NEXT 
:NEXT :D=&0:AP=&C:DP=&C:L=& 14 

30 RANDOMIZE :GOSUB *RP:ON ERROR GOTO !|! ERROR:CLS GOSUB *1F 
40 IF R(A,B )>&A G OS U B *VDS:GOTO &55 
45 IF R(A,B »&0 GOSUB *M:ON R(A,B) GOSUB *M I 
* PF: GOTO &55 

50 I F LEFT$ ( P$.& 1 )=» ! " GOSU Si *IPF 
60 IF M1D$ (P$,&2,& ! )=» I " GOSUB *1PD 
70 IF M i DS (PS.&3.& ! )=»]" GOSUB * I PA 
80 IFRIGHTS (P$,& 1 )=» I " GOSUB * 1 PG 
85 GOSUB *B:I=D 

90 T$=1NKEYS & UIFT$=»» THEN &5A 

100 IF ASC T$=&F OR TS=»4" THEN D-D-& 1 ELSE IF ASC T$=&5 OR T$=»2” 
THEN D=D+&2 ELSE IF ASC TS=&E OR Tî=»6" THEN D=D+&1 LESE 1F 
ASC T$=&9 OR T$=»5" THEN *MENU 

140 GOSUB *RP:lE EH FIS (PSA- 1 )<»> î " THEN D=I:GOTO &5A 
150 IF (R(A,B)>&0)*{T$<>»2"}*( ASC T$<>&5) Tl tHN D=l: GOTO &5A 
160 IF D=&0 THEN B=B+& I El. SH 1FD=&! THEN A=A+& I ELSE IF D=&2 
Tl !EN B=B-& I ELSE (F D=&3 THEN A=A-& 1 


1 70 GOTO A ! H 

500 * ERROR IE ER N =&20 OR ER N =&2! THEN A$=»GAGNE!»:U=&5: 
X=&23:Y=& 1 3:GOSUB *TXT:A$=INPUT $ FEND El ,SE PRINT «ERR-»:ERN 
;»L1GNE=»:ERL :END 

10000 *IF UNE (&50,&0V(&9E,&1F).B:LINE {&69,&!5W&85,&A).B:LJNE 

(&50.&1FH&69.& 15):LINE (&50,&0)-(&69.&A):LINE (&9E,&0)-(&85,&A): 

UNE (&9E,& I FX&85.& 1 5):LINE (&50.& IF)-(&69,&15):RETURN 

1 000 8 * 1 PE U N E ( & 7 3 . & 1 5 ) ■ - ( &7 B , &C ) . B : R ETU R N 

10010 *IPCj LINE (&5B.& l BH&5B,&8):E1NE -(&63,&A):L1NE -(&63,& 17): 

R ETU R N 

10014 *1PD UNE (&93.&1 B)-(&93,&8):MNE -(&8B.&ATL1NE 17): 

RETURN 

10018 * I PA LINE (A6BA I FM&83.&6). B: RETURN 
10040 *RP IF D>&3 THEN D=D-&4 ELSE IF D<&0 THEN D=&4+D 
10060 IF l>=&() THEN PS=PS(A.B) ELSE IF I THEN P$=RIGHTS 
( P$( A , B ) ,&3 ) + L EFTS (P$(A.B),&I) ELSE IF D=&2 THEN PS=RIGHTS 
(P$(A,B)A2)+LEFTS (P$(A.B).&2) ELSE IF D-&3 THEN PS=RIGHT$ 
(P$(A.B),& I )+[ EFTS (P$( A,R),&3) 

10070 RETURN 

1010! *B GCURSOR (&AC,&I4):IF !)=*() G PR INT «18181 AFFFEIA18I8» 
ELSE IE D=&! GPR INT « 1 83C 1 8EFFE1 8 1 8 1 8» ELSE IF D=&2 GPR INT 
« 1 8 1 858EEEE58 1 818» ELSE IE D=&3 GPRINT « 1 S 1 8 18FEEF183C 1 8» 

10102 1 OUATE &2(),&0:POKE &BFCA I .&FF:PRINT «RADAR >:POKE 
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&BFCA 1 ,&0:LOCATE &20,&2:PRINT «X>:A:LOCATK &3-PRJNT 

«Y:»;B:RETURN 

1 0200 *TXTG=&F22 1 5:GCURSOR ( X.Y J: FOR l=& ] TO LF.N AS: H=&6*( ASC 
(M1D$ <A$,I.&| ))-&2<)):FOR I-&0 TO &5:FOR K-& I TO IFGPRJNT PFFK 
(G+H+J);:NEXT K:NEXT FNHXT ERETURN 

l02(b * MENU Gos ^B *CL:LOCATE &IE,&I:PR1NT «LIFE:»;LJ OC ATF 
& 1 E.&2 :PR INT « ATT : »;A P: I .OC ATE & I E.&3 : PR I N T «1)1 -F: » ; D P: PO K F 
&BI (’A I ,&FF:LOCATE&D.&0:PRINT «.ACTION MENE-» 

: PO K E& B FC A î ,&0 : 

PRIN ] « 1 . AF [ A QU ER » : PR [ N T «2.FOUIU ,ER»:PRINT DONNEES»- 

X$=INPUT $ I " ' ' ’ 

I 0206 IF ( VAI , XS)<&4 ON (VAL X$) GOTO !it AT,*FL, ï: DO ELSE GOTO & I F 
10210 : AT G()SlJB *CL;LOCATE &0.&0:PRINT «ENNEMI:» J.OCATE 
&0.&2.PRIN f «LIEE:»:Ah=R(A3) f!! &6:DE=AK:LE=INT(AE*& I9/&64) 

102 12 LOCATE &0,&l:PRJNT USING «###»;EE: LOCATE &() & 3-pRJNT 
USING «###»;L 

10213 FOR G-& I TO ( AP/&2);ATP=RND AP:DEE=RN1) DE: LOCATE 
X I h.A I :PRIN I USING «##>»; AT P: LOCATE & ! E,&2:PR1NT USING «##»;DFE: 
NlvX I ;IF DFE<ATPTHEN LH=LE-INT«ATP-DFH)/&3) 

10215 lh LE<t&() GOSUB + MM:R(A.B)=&0:XS=1NPUT$I iGOTO !: MENU 
102,6 G=&1 TO ( A E/& 2 ) : AT E=R N D AH:DHP=RND DP: LOCATE 

& I H.& 1 :PRIN F USING «##»;DFP:LOCATF; & i H,&2:PRINT USING «##,>• 
ATF: N EX T 

10217 IF DFP<ATE I HEN L=L-INT (f ATK-DFP)/&3) 

102 1 S IF L<&0 GOSUB *SP:T$=1NPUT S! :END 

10219 GOTO &27E4 

10220 IL GOSUB *CL:IF R(A,B)>&0 LOCATE & ID.&3:PR1NT 
« I M POSS I B LE» : T$=I N PUT $ I :GOTO *MENU 

H i_2 1 IF R5( A, B )=»» LOCAJ F & 1 D,&3:PRINT «RIHN»:X$=!NPl 1TS I GOT( ) 
'MENU 

10222 GOSUB *G:GOTO *MENU 

10223 ° K)R H=& 1 10 LHN B$(A,B):R$=MIDS (R$<A.B).H.& 1):1E R$=»C» 

1 HhN K=K+& I : LOCATE & IE,&3:PAUSK «1CKE» El SE II- R$=»D» Tl {EN 
DP=DP+& 1 : LOCATE & I E.&3:PAUSE «+DKF» 

10224 IF RS=»A» TU EN AP=AP+& I .LOCATE & 1 E.&3:PAUSE «+ATT» EJ SE 
IF K $=»[.» I HhN L=I .+& 1 :L( )CATE& 1 K.&3:PAUSE «+VIE» ELSH IF R8=»M» 
IT [EN M=M+& I : LOCATE & 1 E.&3:PAUSE «+.OR» 

10225 NEXT :R$( A,B>=»»:RETURN 

10226 *CL FOR X=&() TO &3:LOCATE &().X:PRINT « «-J OCA'FF’ 

& 1 B.X:PR1NT « «:NHXT:RETURN ' 

1 02.4) -DO GOSUB ’"CL:LOCATE&0,&2:PRINT «CLH:»;K:PRINT « OR»- 
M: LOCATE & I D.& I: PR INT « ! .DEPOSER»: LOCATE & I D.&2:PR1NT 
‘O.in !LI S ER»: LOCATE & ! D.&3:PRINT «3.PAUSE»:T$=INPUT S I 

10231 IFT$=»3" PORE &BFE00,&8,&(),&4 1 :CAI ,L &FFFDC GOTO *DO FI SF 
IF VAL T$>&3 TUEN *MENU 

11,232 LOCAT E&1D.& I: PR INT « ! .CLES «J .OC ATE & I D.&2PRINT «2 PIE- 
CES «:X$=INPl JT S 1 :1F X$=»3" TH EN T$=».V:COTO &27E7 

10233 IF T$=» I " THEN IF X$=» I " AND K>&0 TIIEN R$(A.B)= 

RS( A.B )+»C»:K=K-& 1 ELSE(FX$=»2" ANDM>&()THEN R$(A B)=R$( A B>+ 
»M»:M=M-& I 

10234 IF T$=»2" THEN IF X$=»l" AND K>&0 AND R<A.B)=&6 THEN 

R( A h) *0:K=K-& | ELSH IFXS=»2" AND M>=R{ A.B) THEN U=U+R(A B)- 

M=M-R(A,B):IF U=R( A.B) AND U>&A GOSUB *CL:CrOSUB *0:U=&() 


10235 GOTO *MENU 

10240 PSET(&6A.& 1 C):l. INE (&6B.& I DH&72.& 1 D):LINE J&72.& I A): 

I .INK J.&75.& i 7 ):L1NE J&78.& I7):I.INE-(&7B,& I AcLINE -(&7B & ! D) I INF 
-(&82,& I D):PSET (&83,& IC) 

| 024 | LINE(&82.& , BH& 7 E& 1B ):LINE-(&7F.& | A)JJNE-(&7C.&!7):1JNE 

-(&7C.& I0):LINE -(&7A.&H):L1NE -(&73,&E):LINE -(&7 I ,& I()):1JNE - 
(&7L& I /)J.iNH-(&6E.&IB):I.INE IB) 

J 0242 UNE (&75,& 14)-(&78,& 1 3),B:LINE (&7D,& 1 2)-(&7E.& 1 2):LINE 
( &7 F.& 1 1 M & SI ),& 1 1 ):I JNE (& 7 F.& 1 3 )-( & 80.& 1 3):LINE ( &74.& 1 0)-(&75 ,& | () ) 
1024.1 FINE IO)-{&79,& 10):LINE (&76.& i 1 )-(&77,& 1 | )■[ JNE 

(&6D.& 1 l H&6E.&I I ):I INE (&6D.& I 3M&6E.& 1 3 ):LINE («feôF &IM- 
(&70.& 12 ):1JNE (&6F.&EM&7L&E) 

102 WI-IXE (&7C.&E)-(&7E,&E):PSET (&7F.&F):PSHT (&6E.&F):RETURN 

10245 :: PF LINE (&6C.& I E)-(&,8 1 ,&6).B J JNE (&6C.& I E)-(&8 1 &6)J INI 

(&6C,&6)-(&8 L& I FJiRHTURN ’ 

10246 ' Mi LINE (&75.& I D)-(<&.79.& i D):UNE (&77,& I D)-< &77 & I APPSET 

(&76.& 1 A ):RHTURN ’ ' 

1024/ \12 I ,INH(&78,& 1 E)-(&75,& I E):LINE -(&75,& IC): LINE J&78.& IC)- 
UNE -(&78.& I A): UN H -(&75,& 1 A):RETURN 

10248 'AD I JNh(& . 6.&lE)-(&78,&!E):l.lNE-(&78,& I AU INEJ&76 & 1 A)- 
PS El ( &77.& I C ): R El CRN 

IU_4 ( » -M4 LJ NE (&,>.&! AH&75.& I B);LINE -(&78.& ! B):l .INE (&78 & i A)- 
<&78.&JC):RETURN 

1 1 1-50 M5 L I NE I&78.& 1 A H &75,& I A) J JNE -( & 75.X I C ): LINE 4&78.&1C)- 
I JNE -(&78.& 1 D): I J NE J&75.& I E):RETURN 

I02M -SP A$=»NON!...PERDU»:U=&3:X=&l):Y=&I3:GOSUB MXTJ.INH 
(&(),&() H t NEK& 1 F) J.INE (&().& I F)-(&EF,&0):RETURN 
10253 ’ n nS UNE (&6C,& 1 DH&7L& 14):LINE -(&73,&C):LINK -(&6E&A): 
UNI-. -(<fe73.&6):LINE *<&7A,&6):I JNE -(«&7E,&A):LINE-(&7A &C)J INF - 
(&7C.& I4JJJNE -(&8 F& 1 D): LOCATE &E,& I 

102^4 PR IN T R(A.B):LINE -(&6C,& I D):L1NE (&74,&9)-(&75,&9)j INE 

{&78.&9H&79,&9):LINE (&76,&B)-(&77,&B):RETURN 

10255 * M M UNE (&70.&6)-(&7C.& I9):L1NE {&7D.&6M&70.&1 B)J INF 

( &9 l.&CH &66.& 1 9 i: UNE ( &93,& 1 3 H &6A ,&8 ): LINE ( &6A &8 H &8 ! & 1 4)* 
UNH-(&64.&F):RETURN 

50000 DATA 2.8.10.10 

50001 DATA I ! 00.6 ..()]{) I ,J .LU J., LU .ELU .LLI ,LLI .EL,0 1 0! ,J J JJ 1 | ,L1 IJ.L 

U IJJ LLI J LLI .1 .LU LLL.OIOI.J JJ J.U J I JJ J.IJ J 1 J J J LL.OIOF I .0101,2.. 

0IOI.3.C.01O1.3.C. .1 101... 1001, L. 1000, LJ 1 1().„010! „,0l0l .,,0101 0001 000 
0„,(M)I0,2.AAAAA 

50002 DATA 01 10.2.DDDDDD.Ü01 1.6..01 10.I..I01 1 1010 

2'M M MMM M MM M MM M M MM ,(H )()(),,. 0000, „00(X),„ i 0 1 0, J LLI I.I I I : LJ 1 

00. 1„ 1001. | „| 1 00. ..01 01,2. ,0001. LD. ! 010.,, 1 1 00,. .0101 .1 .,0101 NM ]00| "> 

MMMMMMMMMM ' ’ 

50003 DATA 1010., .1010... 1 1 10.. MM J ! 1 I ...0101 .6, .010 1 

1. JUI I ... 1 0 10,. .0001 ),.,()()()(),„ loi {),.. ICI 0„. 1 0 i 0,2„ ! 0 i 0... i 010, 1 .,0000 0000 

1010.2. C.01 10... 100 F..0000,..0l 10, ,,00! ]...()()! 1.3 .A ad 

50004 DATA 1010. 1..01 10. 1 .J00F2,D.000G., ! (K)t0.4,LLLLLLL.l(K)0,20,DDDD, 

01 10J.MMM.1 10!. ..0I0LLMMMMMMMMMM, 100F. .0101. L, 0011. .0000 

1()10,.,00()0,.,0(K)0..J010,..(M)00.,,1 1 10, 1 .MMM.OOO! ... 10IO..C 

5000s DA I A ! 1 00,., 0001. 1 .,0000,,. 1010,,. 0000„,()000.„01 10,.,0H)1.1.L.I011 

0 100.2. LLLLLLI.LLLC.OO! I,,J ! I(),„(KX)1,3,L,010I ...OOIL.J 100. | ., 1000,3 1 I I 

1 100.. , 1001 .1, A ADD, 1010„.0000,.. 0000.. ,0100,,, 1 101.2,401 1.,.000(),. 1010 AD 

1010. 1. AD.00I0. 15. A A AA 

50006 DATA ÜU0...01 1 l.l.LAD.OOOl ...0101 ...01 01, ..(KH l.„OI 10., 0100 2 0010 
I ..01 10.5.»» 


I .,01 10.5,»» 

PROGRAMMES pour TANDY PC3 4KO/SHARP PC 1251 

20: INPF’T «ECHELLE « : Y W 


COURBE 

Appuyez d’abord sur DEF F pour installer la partie assembleur du 
programme. DEF A efface l’écran et demande l’échelle sur les X et sur les 
Y (sur les X l’écran comprend 85 points ei sur les Y 2 î points d'où pour 
tracer S INI X entre -PI et PI, indiquez Pi/42 et 1/10). DEF S trace une 
nouvelle courbe sur l’écran defini ci-dcssus, la courbe est indiquée à la 
ligne 240CY =...). Fcs ensembles de def correspondent aux intervalles sur 
lesquels la combe n esi pas définie ou ne doit pas être tracée. 

Dl.l D affiche al écran la courbe sur 3 lignes 

Pour passer a la ligne suivante, appuyez brièvement sur la touche CL,. 


PROGRAMME : 

1 0:»A»:CLEAR:CALL 50486 


20: INPUT «ECHELLE «:V,W 
30: «S»: INPUT «NB RE D ENS «:S 
40: IF S<=0 TI 1EN 90 

50: FOR UM TO SJNPl T AU) ).A( LJ+S i:NEXT L 

90: FOR U=-42T042:X=U*V:G05UB 210:v=llWNT<Y/W + .5)JF Y<OOR Y>20 

THEN 150 

1 00: PO K E 5 ( >43 3 . Y: PC )K H 5047 1 .( U ■ +42 ) :C A I L S()4M 
150: N EXT L':BKEP 1 

1 60;»D»: WAII 0: PR INT «TRACEE 1 R»: POKE 505 35 &F1- 
POKE 50539,&C3:CALL 50525 
I 7 0: POKE 50535. &54; PO KE 50539,&C4:C2ALI 50525 

1 80:POKE 5 05 35, & A 9 : PO K E 505 39 .& C4 • C AI I 5 05'’ 5 
200: END 

2IOJFS<=OTHEN 240 

220.FOR 1UI TC.) S JE A(T)<=X AND X<=A(T+S) l .ET Y-()T=SNFXTT* 
RETURN 


51 


Poche computers N°4 



POCHE COMPUTERS 

8 

H 

Ë 


PROGRAMMES pour TANDY PC3 4KO/SHARP PC 1251 



230:NEXT T 
240: Y= 

25ÜRETURN 

3( >0:» F» : CEEA R : A-5043 1 : RESTORE 330 
310:A=A+l:READ R: IF B=999 TH EN END 
320:PÜKEA.B:GOT0 3IO 

330:DATA 2.0, 103.7 .42,5,0, 0,44 J 5, 103,14.42.7. 1 17.7.0,85.44,5, 

! 1,7.14,0.170,3.1 

340: DATA 103,0,56,7.67,2 18,90,2 1 8.43.9.1 28.89, 1 16.0, 16.&C5, 
&2E,82,, i 6,&C4,0,2 1 8 
350: DATA 1 8,30,85,7 1 ,83,55 

360: DATA 2.0. 16.&C4.&00. 0,84,3 1 .2.8.16.&C4.&55.0.84.3 i ,2. 
0, ! 6,&C4,& AA.0,84,3 1 

370: DATA 1 6,&C4.&2A,2. 1 27,82. 1 6.&C4.&7E82, 1 6.&C4.&D4, 
82.55 

380: DATA 1 32.2.255.2 1 9. 1 33.2,247,219, 1 34.2. &FF.2 19. 135.2, 
&C3.2 19, 18.30.2.0 

390:DATA I20.& 1 1 ,&E0, 103,60.56.8,6.85 ,4,83.66.45. 10.132,2. 
124,219,133,2,248,219 

400: DATA 1 8,30,2.60, 103,85,86,8.6,85,5.83.66.45, 10, 1 8,93,2, 1 , 
219,221.18,50,2,0 

4 ! 0:DATA 2 ! 9.93,76,78,255, 1 03,2.4 1 .6. 1 20.& 1 1 .&H5.55.999 


AUTO 

Appuyez d’abord sur DEF A pour installer ia partie assembleur du pro- 
gramme. Appuyez sur DEF S pour jouer. Montez avec 7, descendez avec 
3 pour rester sur la roule. 

PROGRAMME 
I0:»A»: CLEAR : A=4915l 
! 5:RESTORE 40 

20:A=A+! : RE AD B : IF Bo999 Tl IEN POKE A,B:GOTO 20 
30:BEEP 1 : GOTO «S» 

40: DATA 0.&F7.1 36,2, &FF, 2 19.135.2.&C5.219. 1 34.2.&B7.2 19,2.0 

50: DATA 218.1 94. 1 33,2,&C0,2 1 9.1 32.2. 1 9a, 2 1 9.6.874 00.3 1 ,66 

60: DATA 67.4.4.4.4.4. 103.0. ! 24.&C0.& l F 

70: DATA 1 28,2 1 9, 1 35.2 1 9. 1 28.2 ! 9. 1 36,2 19, 1 34.2 ! 9, i 36,2 ! 9 

80: DATA 36,38,36,38,36.38.36.38,36,38 

90: DATA 1 28.2 1 9, 1 35,2 i 9. 1 28.2 ! 9, 1 36,2 1 9. ! 34.2 1 9. 1 36.2 ! 9 

100: DATA 218,1 03. 1 2, ! 27.&CO.& 1 0 

140: DATA 0.&F8.1 36.2,&7C,2 19,2,0 

1 50:DATA 2 1 8. 194, 1 33,2,&C0,2 19, 1 32,2,&9A,2 ! 9,6,87.100.3 1 ,66 

160: DATA 67.4.4.4.4.4. 103,0.1 24.&C0.&69 

1 70: DATA î 28.2 1 9, 1 35,2 i 9, 1 28.2 i 9, 1 36,2 ! 9. 1 34.2 1 9, 1 36.2 1 9 

1 80: D ATA 36.39.36.39,36,39,36,39.36.39 

190: DATA 1 28,2 1 9. ! 35.219, 1 28,219,136,219.1 34.2 19, i 36.2 1 9 

200: DATA 2 1 8, ! 03. 1 2, 1 27.&C0.&5A 

2 10: DATA 1 20, & 1 1,&E0,55 

220:DATA 67,67,67,67.67 

230; DATA 97.97,97,97,97 

240: DATA 60,24.24,60,24 

245:DATA 30, 1 2, 1 2.30. 1 2 

246: DATA 0,0, 0.0,0 

250: DATA 999 

300:» S» : CLEAR : DIM C$(0>*24 : FOR 1=2 TO 24 : POKE (5061 5+1 ).32 : 

N EXT ! 

305:POKE 50000.&89.&02, i ,&DB.&,88.&02, 1 00,&DB,&03,&00,&02,&01 . 
&12.&5F.&61 ,&10,&DF 

306: PO K F' 50017,&4E.40,&60.&E9,&DK&88.& 1 5,&29,&UD,&37 
307:1 N PUT «SON (o/n) ?»:F$ 

31 O:\VA1T : PRINT «*** AUTO ***» : B=32 

3 1 5:1F F$=»0» THEN CALL 50000 : HELP ! : CALE 50000 : CALE 50000 : 
B EBP I 

32( ):C${ 0 D RIGHTS <C$(0),23) : POKE 50639.(3 1+RND 2) 

330: POKE 506 ! 6.364 B+2 ) : CAEL 49152 : DS=INKEY$ 

340: 1E DS=»7" LET B=33 

350:IF D$=»3 1- EET B=32 

355: POKE 506 1 7,( B+2) : CALL 49 1 52 

360:S=S+ 1 : IF Bo PEEK 50618 THEN 370 

365:GOTO 320 

370:1F HS=»0» THEN CALL 50000 : CALL 50000 


380: IN PI JT «on rejoue \VF$ 
390:1F E$o»N» THEN 31 


AUTO 2 

Appuyez d'abord sur DEF A pour installer la partie assembleur du programme 
.Appuyez sur DEF S pour jouer. L’écran représente le pare-brise de votre auto 
ainsi que la route, les autres véhicules ei des arbres qui bordent la route. Allez 
à droite avec / ei à gauche avec 4 en évitant les autres voitures. 

PROGRAMME : 

1 0 : » A » :C L E AR: A=49 1 5 1 
15: RESTORE 40 

20:A=A+l :READ B: 1F B<>999 THEN POKE A.BrGOTO 20 
30:BEHP 1 :GOTO «S» 

40: DATA 0.&F7. 1 36.2.&FF.2 1 9. 1 35.2.&C5.2 1 9, ! 34.2.&B7.2 1 9,2.0 

50: DATA 218.1 94, 1 33,2.&C0,2 1 9, ! 32,2, &BA, 2 1 9,6,87, 1 00,3 ! .66 

60: DATA 67.4,4,4.4.4. 1 0.3.0, 124.&C0.& ! F 

70: DATA 1 28.2 1 9, 1 35.2 1 9. 1 28,2 1 9. 1 36.2 i 9, 1 34,2 1 9. 1 36,2 ! 9 

80: DATA 1 37.36,6.85,7 1.83,36.6,85,7 i ,83.36,6,85.7 1 .83,36,6.85,71 .83,36,6,85.7 1 ,83 

90: DATA 1 28.2 1 9. 1 35.2 1 9. 1 28.2 1 9, ! 36.2 1 9.1 34,2 1 9, 1 36.21 9 

1 00: DATA 2 1 8, 103. ! 2.127.&C0.& 10 

1 40: DATA 0,&F8. 1 36.2.&7C.2 19.2,0 

1 50: DATA 218.1 94, j 33.2.&C0.2 19. 1 32.2.&B A,2 1 9.6.87. 1 00,3 1 .66 

1 60: DATA 67.4.4.4,4.4. 1 03.0, 1 24.&CO.&79 

1 70: DATA 1 28,2 1 9. 1 35,2 1 9. 1 28.2 1 9. 1 36,2 1 9. 1 34.2 i 9, i 36,2 1 9 

1 80: DATA 137.36.7.85,7 1.83.36.7.85.7 1.83.36,7,85,7 1 .83,36,7.85.7 1 ,83,36,7,85.7 1 ,83 

1 90: DATA 1 28.2 1 9. 1 35,2 ! 9. 1 28,2 1 9, 1 36.2 1 9, i 34.2 1 9. 1 36.2 1 9 

200: DATA 2 1 8.103.12.127.&C0.&GA 

2 10: DATA i 20, & 1 1 .&E0.55 

220: DATA 0,0.0,03) 

230:DATA 0.2, 7.2,0 
240: DATA 12,30.127.30.12 
245: DATA 1.6,8.48.64 
246: DATA 64.48.8,6,1 
250: DATA 65.33. 18, 12.0 
2 60: DATA 0. 1 2. 1 8.33.65 
265: DATA 0.3. 1.3.0 
270: DATA 28.10.10.10.28 
275:DATA 0.1 24.1 18,117.29 
280:DATA 61.45.45.45,61 
285: DATA 29,1 S 7. ! 1 8,124.0 
286: DATA 64.32.16.16,16 
2 87: DATA 16,80.1 12.80.16 
288: DATA 16.16.1.32,64 

2 90; D ATA 999 

300:»S»:C! FAR: Di N B$(0)*24:DIM D$(2)* I0,H$(6)*3.F$( 1 1*1 
3IO:F;S(0)=»000":ESl 1 i=E$(0):E$(2)=E$(0):ESf3î=E$(0ï:E$(4j=»070 ,, :ES{5)=»080" 

3 20 : H$( 6 )= »9 , E» : D$(2}= >>5000000003" :D$( 1 }=»40(>0000003" : 

D$( ())=>, 4 000000006" 

330:K$(0)=» 1 ":ES( 1 )=»2":RANDOM 

340:X=6:A=I :RESTORE 500:WAIT:PRINT»* ,|I *AUTO*’ I ” |! »:BEEP2:WAIT 0 
350:1-1 .+ 1 :IF L>60 Tl ! EN RESTORE 50():E= 1 : PA U S E» * * * A R R I V E E * * * » 

351: RE AD Y:C=1-C 

352:U-U+.5:!F U >6 LET l =RND 4- 1 :GOSUB 600:H=(RND 2-1D5 

35 3 : X=X+ 1 - A: S=S+ 1 : KS= I N K E Y S 

354:1F KS=»4” LET X=X+2 

360:1F K$=»/» 1 El X=X-2 

390: B $( ( ) )=>4)00000(KKM.KRK)( )00(K)000000' 1 

395:B$(0)=I ,EFT$( B$(0).X-1 )+FS(C)+D$(Y)+F$(C)+R!GHT$(B$(0). 1 3-X) 

400: BS{0)™LEFTS(BS(0),X=l+l D+F1$( lNT(U+.5))+RIGHT$(B$(0),20-X-H) 
405:PR1NT»»:CAL1 .49152 

406: B S( 0 >=>>0000000000 LEFTÎ RIGHTS MIDS 00000000000" 

4 1 0:CALL 49 1 52:A= Y 
415:IF X<4 THEN 700 
416:1F X>9 Tl 1KN 700 
420:GGT0 350 

500: DATA 1 . ! , 1 . 1 , 1 .0.O.O.0. 1 , 1 .2,2.2, 2, 2.2.2, 2, 1,1.14 .2.2.2. 1.1.1 .0.0, 0,0.0, 1,1.1 

5 1 0: DATA 2, 2, 2.2.2, 1 . 1 .0.0,0, 0,0. 1 J . i , 1 , 1 . 1 . 1 , 1 . 1 . 1 . 1 

600:1 F 1 1-0 THEN 1F X>6 THEN 700 

610:1F H=5 THEN IF X<7 THEN 700 

620:RETURN 

700: BEER l:CAl.L4576:FOR 1=1 TO IO0:NEXT I 
7 1 0:PR1 NT» SC GRE: » :S: I N PUT »ON REJOUE (O/N) ?»:G$ 

720:1 F ( 1S<>» N » i H EN «S» 
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INFOS sur le SHARP PC-E500 


Le PC- F, 5 00 est doté d’un processeur très puissant; le ESR-I 
successeur des processeurs ESR-H qui équipaient les anciens PC 

U 1oK Just ^ u aLi 1360 en Passant par la série des 14xx) Ce 
nouveau processeur possède enfin une seule interruption qui peut 

etie muhiplexee par logiciel, une U A RT lui permettant de 

commun, querjusqu*à 9600 bit/s ainsi qu’une capacité d’adressage 

sur -4 bits, soit 1 Mo que l’on peut aussi multiplexe,'. 

De manière simple, ce processeur permet de travailler en adresse 

flottante, tout comme un bon vieux 8086, mais par blocs de 64k > 

Mais c est une autre histoire (dans un prochain numéro nous 

attaquerons le langage machine du PC-E500). Nous allons donner 

iu quelques informations relatives au langage BASIC et sur la 

manière d’accroître sa puissance dans une faible mesure. 

lout d abord jetons un coup d'oeil aux adresses de fonctionnement 
du bas lc : 

La mauvaise nouvelle, c'est que dans le F.500 rien n'est jamais (ou 

p£ A Ue ,’ “A-r eme , adreSSe - dU m dc S,,n Passeur: les anciens 
PLhK et K)Kba adresses I ixes ne sont plus valables (sauf quelques 

U ï 1 iSi I k 

La bonne nouvelle c'est que parmi ceux qui restent, il v en a qui 

nous indiquent où ce trouve le programme en cours d'exécution 
Débutons par la base; 

Des ordres cachés du BASIC: 

PEEK, POKE et ( ALL vous les connaissiez déjà. 

B DATA $ donne ou fixe le nom du fichier contenant les 
v d] iab * es > ^ origine il vous donne S 1 ; DATA. BAS " 

, , BTEXT$ donne ou fixe le nom du fichier du programme à 
exécuter , d origine il vous donne “ S 1 :TEXT B AS ” 

Vous aurez, noté le "SI: " devant le nom du fichier: i I s'agit 
de la RAM interne, i! y en a d'autre: 

S2:» pour la carte "G: » pour les programme en ROM du mode 
menu (tous en basic et bourrés d'astuces') 

Bieu sûr DS KF " ’ref.disque ’:» donne la capacité du disque (et 

Il y en d'autres mais ceux ci suffisent déjà pour ce chapitre 
Quelques adresses fixes utiles: 

Changement de graphisme pour les lettres: 

Le PC E500 dispose d'un générateur de caractère logiciel il est 
donc possible dc changer le graphisme des caractères comme on 
veut, en respectant les consignes suivantes; 

Ad, esse &BFC8A, pointe sur l’adresse des dessins des 
caractères de valeurs ascii &80 à &9F 

Adresse &BFC8D, pointe sur l'adresse des dessins des 
caiacteres de valeurs ascii &F0 à &FF 

Adresse &BFC90, pointe sur l’adresse des dessins des 
caractères de valeurs ascii &00 à &7F 

Adresse &BFC93, pointe sur l’adresse des dessins des 
caractères de valeurs ascii &A0 à &DF 

P ° Ur [ Utlîiser ’ 11 vous faut dessiner les lettres dans une zone 
mémoire reservée (voir plus loin) en ‘POKANT’ leur valeurs les 

unes après les autres; Pour information, regardez donc à l'adresse 
AF ] 98, ,1 s agit de tous les graphiques du E500; pour regarder il 
aut fane un petit programme dont voici un exemple’ 

A=&F2I98: CLS: GCURSOR (0,10): FOR I=A to A+&FF- 
GPR1N r PEEK I;: NFXT: A$=INKEY$ 1 

en changeant la valeur de A, vous imprimez le reste, tuais à vous 
a améliorer ce petit programme! 


par Patrick DEHLINGER 

Note: les adresses citées plus haut doivent être ‘poké’ à l’envers* 

si v .ous prenez . l 'adresse & 1 23456 (c'est un exemple ! ! ) vous devez 
écrire POKE &BFC8A,&56.&34,& 1 2. 

ATTENTION; le graphisme est changé aussi pour les entrées 
A LITRES* P( T L ' SSUI S t0ldlLS ’ surtout avec l’adresse &BFC90! 

&BK 29. la valeur &40 affiche les codes ascii inférieurs à &20 
tand ts que &00 provoque le retour à la normale. 

*RFrcm & , BFC9 , 9 ’ &BFC9A: Concerne r afficheur ( btisy.run 

* B 'U B dünne a posll,on du curseur (surtout utile en PEEK ) 
&BK..9C: donne la ligne en cours (PEEK) 

&BFC9D: fixe la longueur de ligne (normalement à 40. mais vous 
pouvez le régler à votre convenance), 

&BFC9E: lise le nombre de lignes (normalement 3) 

&BFCA I : la valeur &40 provoque l'affichage en inversion vidéo, 
tandis que &00 provoque le retour à la normale. 
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&BK B3: donne le code de la touche pressée ( marche même si le 
programme tourne, du fait des interruptions) 

CB.\ . i iF-Iulc du temps l!c départ avant 1 autorépetition des 
touches (mode ctrl+j) 

ABbCBB : réglage de la vitesse de répétition des touches 
QLhLQUES C ALI utiles maintenant : 

CAI L &E0IC.2 vous permet de simuler une extinction de la 
machine, a\ ec effacement de l'écran au rallumage 
CALI. &E02 1 4 fait la même chose sans effacer l'écran. 

NOrE : Le programme continue à tourner lors du rallumage !!! 
Enfin, pour conclure ce premier article, voici une adresse très 
preneuse car c est la seule qui vous permettra de faire du lan^a-e 
machine sans problèmes ; elle a pour fonction de reserveAine 
P ace mémoire dans la machine et d’informer le système qu'il n'est 
plus autorise a déplacer cette portion de mémoire 
FAIRE : POKE &BFE03.& I A,&ED,&0B,f.m.F ’ 

pins CALE & F FED 8 où T représente le poids le plus faible dc la 
quantité et ‘F* le plus fort. 

ex: pour protéger & 1 234 octets de mémoire: 

POKE &BFE03.& I A.&FD.&0B.&34 & ! ? &()() 

CA LL &FFFD8 

l 'adresse mémoire commence en BFD ï A, i 'adresse de début de la 
zone protégée se trouve en &BFD1A 

<>n l’obtient en faisant un HEX PEEK & B ED I A -> poids faible (f) 

HEX PEEK &BFDIB -> poids moyen (m) 
HEX PEEK &BFD1 C -> poids fort (F) 
adresse étant alors &(F)(m)(f), on peut donc utiliser le nombre 
d octets demandés à partir de cette adresse: 

.T Pr ° téger 1 (&0003FF) octets de mémoire: 

I OKE & BFE03,& 1 A,&FD,&0B,&FF &()3 &()()■ 

CALL&FFFD8 

à l 'adresse &BFD 1 A on a I (&() l ) 

&BI ; D ] B on a 248 (&F8) 

&BFD1C on a I I (&B) 

ia zone mémoire est donc à J'adresse &BF801 et on peut vérifier 

par h, formule &BFC0O-&BF8O1 qui nous donne 102.3 qu'on a 
bien les 1023 octets demandés. 

NOTE: en dessous de &BFC00 (ou en dessous de l'adresse 
protégée demandée) se trouve ia PIFF SYSTEME (ST4GK i il 
ne faui donc en aucun cas aller POKER au pe.it bonheur da,’„s 
au risque de planter très gravement la machine. 

Allez, à bientôt pour une petite initiation au langage machine dans 
le prochain numéro de POCHE COMPUTERS 
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CABLE DE LIAISON POUR POCKETS SHARP 

par Werner KLINGER 


Relier deux pockets SHARP, même de modèles différents pour 10 francs ! C'est possible... 


Oui, vous avez bien lu. Il s'agit de relier 2 pockets Sharp (même 
de modèles différents !) et effectuer des transferts de fichiers. La 
seule contrainte : il faut que les deux pockets possèdent un port 
interface cassette ( 1 1 broches). 

Tout d'abord, soyons clairs : ce câble n’est pas celui qui vous 
permettra de faire des échanges de données à grande vitesse lors 
d’un cours magistral ou d'une conférence. Je dirais même plus : la 
transmission est lente et bruyante ! Ceci dit. elle fonctionne parfai- 
tement et ne nécessite aucun programme de transmission. 

LE PRINCIPE 

Nous allons tout simplement faire de accès cassette sur les 2 
pockets simultanément. Plus exactement, nous allons utiliser les 
fonctions et structures liées aux échanges sur cassette. En prati- 
que. il suffira de relier la sortie cassette du premier pocket sur 
l'entrée du second et vice- versa. 

AUX FAITS î 

Tout d'abord, il vous faut mettre la main sur un revendeur 
d’électronique. Là, vous demanderez une «barrette tulipe sécable 
de 22 picots» minimum (ou 2 fois 11), qui nous servira de 
connecteur mâle. D’ailleurs, profitez-en pour jauger votre 
revendeur : au-delà de 0.75 F. par picot, allez voir si il n'y a pas 
moins cher ailleurs, Il ne reste plus qu’à trouver le câble qui 
liera ces 2 barrettes. Bien sûr. vous pouvez acquérir 70 cm de 
câble 3 conducteurs blindé (env. 10F). Mais pour faire un prototype 
ou si le fer à souder n'est pas une de vos armes, trois fils de 
récupération (d'une chute de fil téléphonique par exemple) feront 
très bien l'affaire. Dans tous les cas, préférer des fils souples si 
vous devez faire une soudure, sinon des fils rigides (non tressés) 
qui rentrent dans la barrette tulipe. Evidement, choisir trois couleurs 
différentes n'est pas inutile. 

LA CONCEPTION 

Tout d'abord, repérer chaque barrette par une marque permettant 
de distinguer la partie supérieure de la partie inférieure, avec une 
goutte de «blanc correcteur» par exemple. Pour ne pas faire de 
bêtises, il faut s'entendre sur la numérotation des broches du bornier 
Sharp. La borne n 1 sera celle la plus en haut du pocket (celui-ci 
étant normalement devant vous). La borne n S 1 est donc celle la 
plus proche de la touche [OFF] pour la PC-E500. 


Les bornes à relier sont: 

6 <-> 7 

7 <-> 6 

3 <-> 3 ( la masse, bien souvent oubl iée). 

L'interface cassette étant destinée à toute une gamme Sharp, ces 
liaisons sont valables pour les autres pockets. 

Pour effectuer ces liaisons, se munir des 3 fils, dénudés de chaque 
côté sur 3-4 mm. Les introduire un à un dans le trou de la barrette 
sécable correspondant au numéro de la borne sur le pocket. 
ATTENTION à ne pas intervertir le haut du bas de la barrette. Le 
mieux est de l'introduire dans le pocket (mais retirez- la avant de 
souder !). Lorsque vous aurez effectué des essais de transmission 
dans les deux sens, vous pourrez alors f ixer les fils définitivement 
avec un point de «Super-Colle» (sans retirer les fils !) ou mieux 
poser une goutte d’étain à l'aide du fer à souder. 

UTILISATION 

Afin d'effectuer les premiers essais, il va falloir vous munir... 
d une autre Sharp. Ne désespérez pas. il y en a plus que vous le 
pensez. Une fois la bête capturée, introduisez les 2 connecteurs 
mâles fraîchement conçus dans les pockets, en veillant à le faire 
machine éteinte. Placez-vous en mode éditeur BASIC. Sur l’un 
des pockets. tapez CLOAD. Sur T autre, après avoir tapé un 
programme quelconque, entrez CS AVE «TEST». Un bruit strident 
doit retentir. 

Après quelques secondes (peut-être même une dizaine !). le nom 
du programme apparaîtra sur le pocket récepteur. Lorsque les deux 
invites («>» > sont réapparues, le transfert est terminé. En pratique, 
pour échanger des fichiers, il suffit de taper COPY «d:SOURCE» 
TO «CAS:» avec «d» le nom du drive (E, F. SL..) sur le pocket 
émetteur, et COPY «CAS:» TO «d:DEST» sur le pocket récepteur. 
Cette méthode est à réserver aux fichiers non-basic. En effet, le 
fichier étant décomposé en petits blocs, la transmission en est très 
ralentie. Pour des fichiers basic. il est nettement plus rapide de 
charger le programme sous l'éditeur puis d'utiliser CS AVE, comme 
le fait le premier exemple. Bien sûr. ce petit montage ne résoudra 
pas tous vos problèmes, mais devrait vous soulager dans bien des 
situations. Un de ses inconvénient, mise à part la lenteur et le bruit 
des transferts, est qu’il consomme beaucoup d’énergie, le buzzer 
étant mis à contribution, comme pour les vrais accès cassette. A 
consommer avec modération donc... 




MT 2 

U C C- m gpMjt w««L 
GH D liilPU 

busv fl ni I ■■ 

DOUT 

X i n . 

Xout 1 
D i n i m 
A C K ai 

10 2 Æumm m mm ■ 

101 h ■ « wÆ 


fig.l : brochage du PC-E500 et cablage. 
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CODE COULEURS V 1.0 pour SHARP PC-E500 


par Werner KLINGER 


Description 

C'e programme aide à la lecture des valeurs de composants tek 
res,stances - condensateurs. Pour l'utiliser, il suffi, de presse.,- h, touche 

^uta^uJeuPdrmsPopImd^ri, 

eoutplè e ri r ’■ XP< ’ S: ”"' toK ™“ *>• Dans sa version 

I te, I operation , averse est possible : connaître le code couleur 

ÆST ValCUr - L e ' ,Semble ■** » * menus, avee 

- (des-)aclivation de la tolérance. 

- correction de l’entrée. 

- extinction (Power O(ï), 

- Mode d'emploi et aide. 

L ensemble du programme esl conçu de manière à ce uue 

4u ' unc * u,e r< * ^ ***>■«> ^ 
programme ^ ^ “ “* -e 

Mode Couleur -> Valeur 

d d “ r 7 dre tolérance à droite, donc en d^L TZZ 

Certaines ^ C ° mp,è,e ' 

1 ansentes dans les versions «allégées» 

An f ur et a mesure des entrées, la valeur équivalente ^ affiche 

- umee peut etre corrigée avec la touche [C.CEJ Après i es 3 • ■ i 
correspondant à la va,eur du composa,,!, lien, I cm Z 7h 

que les touches de fonction annule la tolérance (pour cette 7lZ 

annuler I entree de la tolérance à CHAOUF S \l<s jp 

= do ; ,c„g„oter),U„enouve„ep rc ss 

.usst lepaiagraphe/nc/tu/j/ûuvprt/,. Il est à noter q UC cette préfëtvnce 

est conservée dans les autres modes. 

Mode Valeur -> Couleurs 

IRETUR^lîtté T Pré r é ‘ tem ' '' S '° btie " t I» S ™P'= Pression de 

I tu. KM. Il esl egalement d.sponible depuis le menu principal Pou, 
revenir au mode de départ, entrer une chaîne vide ka*S 

est demandée. Pour plus de facilité, votre dernière entrée est vuiv 1 

™- r- - «zzzzs 

activé ou disponible. Vou s devez ! lors ^ ' n ° dC * i0]érance » Snil 

(ex- o DOur oc/ , r i ‘ ltrtT un Pourcentage de tolérance 
fox p„u, 2%). Les valeurs non normalisées sont ignorées Le code 
couleur correspondant est alors affiché. 

Menu principal 



provoquerait une pression dcTpF-S^ Ce^» ( ° U f SaCtiVation) 

I e.a, actuel du mode : «NO» par exemple indique,* les ,„,c n „c ■ « 
prtses en compte. C’est tordu mais on s’y habitue ! 

mode d’emploi intégré 

extérieur II SV r SU 1 " Ct - “ ^ sans aidc 

active sott depuis le menu principe, soi. avec la touche I RO t 

! “7* de 4 ^ ^ P— à la page de 'mst 

louche. Il n esl pasc possible de revenir en arrière. 


Modification du programme 

La structure du programme permet de le modeler suivmt 

^Toirr’* riuiiis ^ 

DAM. Ils peuvent cire aisément raccourcis ou éliminés. 

Versions «allégées» 

peu. donc êtmir pr ° Sramme esI indépendante des autres, et 

TJZT.T - “ eXCeP ‘ i0n * la ^ Principale, lignes ,00 
utvantes. conversion couleur -> valeur). Voici les lm„ cs à éliminer 

suivant le module que vous désirez effacer: 


Ifour enlever 
le module ! 


Effacer les lianes 

4 , "■ 


I 20.400-4 1 0 800-8401 


MENU 1 70,300-310 520.590.6401 

TOLERANCE (*1150-60. 150-160 510,5701 


Valeur 

couleur 


I 

200-240 


580.630 I 
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! . n ^ CX ' tLI Li cnfuelles erreurs de manipulation, vous pouvez alors 

ereer la ligne « 1 50 GOTO 100». P dh ' S 

v (482 octets) 

Pour ceux qui sont vraiment à l’étroil dans leur machine voici 

e \ '° nes !* dm " ner pour avoil lc programme COULEUR -> VAL EUR 

ne se TO „, P „, s „„„ P ,„s ^ 

-0-50-70 1 20. ,50-160.200-240.500-3 1 0.400-4 1 0-5 10 5,0 5 7 64,1 

Ion,- ci, tuner les tests d'erreurs, effacer : ,80.190 e, 440-490 
E <- 1 ne la h gne « 1 80 RES U M E 100». 

J'ospère que ce programme vous rendra de fiers services 
tMlcz pas a me hure pan de vos remarques cl suggestions. Ce „c,i, 
programme peut être largement amélioré. 

10 ‘Code Couleur, pur YVIIJ .y 21 / 7/93 

-TOO-RTinM^E' A::RKST0r H *FH0:RHAD MStPRINT MS 
RATEtSB^B )^^™^ 1 0,M men U*«).COU,&B|. 

Str LM t l-:F0R «"rôsMEAD COMrMÎ-vq 

MEN(!J,5)=MENUS(5H» «:NEXt ' ' ' l-A'OTO *27: 

«BîREAD RATEt,):«! 

«.& 6 I+ ,.|,,:NEXT ELSENH.xf ' ^^MS + ,.| « +LE FTS ,COI.$, I ,.» 

TO *50:MS»MS+» «:NEXT 
70 RKSTORK -EM4IREAD M "ENU« 44 r ’" M,ra (MS ’’ &M -&28) : TL=& 1 
90 CODE$=»COULHIIR.. 

tKmfture b sC™ecX,r' CI S : 1 = & 0 : a->->:RKSTORE *FTI -Menu. Ces- 

<««*0 H-SE '<*’ ™EN C$=CS+ 

'«“^HlPK^THENaoo 

130 RES fORH - F) ; if f <&3 GOTO I j() 

(SI P=&(J):GOT() 130FISFC-K t rn çi o-’c R-& 1 H 1 HLM SUP=- 
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CODE COULEURS V 1.0 pour SHARP PC-E500 


160 GOTO 100 

ISO ON ERROR GOTO 180:M=&5:SUtt=&0:C$=»»:IF ER N =&28 T H EN 
RESTORE *FE0 EL SE RESTORE *FH5:CS=»#»+STRS ERN +»/»>+STR$ ERL 
I90GOSUB *M EN: RESUME 100 

200 TS=»»:M=&5:C$=»»:CLS :POKE &BFCAl,&40:RHSTORE *FT3:READ 
M$:PRINT MS:POKE &BFCA i ,&<):LOCATE .&2:RESTORH *FD3:READ 
MS: PR f NT MS;: KH Y &0.B$:BS=»»:INPUT BS:1F BS-»» THEN 100 ELSE 
OEVAL B$:C$=STR$ C;!F TL 1NPUT «;TS 

210E=&0:ZJ=»»:FOR I=&1T0 LEN C$:M$=MID$ ! );IFMS-»E»THEN 

E=E+VA1. Ml DS (CS.I+&L&5) ELSE IF (LEN ZS<&2 AND MS>».»> THEN 
Z$=Z$+M$:NEXT ELSE IF M$=»0"OR (LEN ZS=&2 AND M$>»()")THHN 
E=E+& 1 :NEXT ELSE N EXT 

220 TL$=»»:E$=M1D$ ( STRS F.&2.&A ):ZS=RIGHT$ ( «00»+Z$,&2 ):C S-COLS 
(VAL LEFTS (ZS.& I ))+»/» +COL$( VAL RiGHTS (/$,& I ))+»/»+COL$( VAI . 
L$ ) : I F TL IF LEN T$ TI (EN T$=T$+»'Y»:FOR [=&0 TO &B:IH RATE(I )=VAL 
TS THEN TL$=»-»+COL$( I ) ELSE N EXT 

230 Cl.S : RESTORE *FT3:READ M$:PRINT MSLOCATE ,&2:PRINT 
Z$:»E»:ES;» «;T$> <=> «;CS;TI .S 
240 K=ASC INKEYS & I :GOTO 200 

299 STOP 

300 CHS :C$=»»:M=&4:LOCATK&L&2:RESTORE *FD4:READ MSiPRINT 
MSTOCATE &20,&3:PRINT <4 <:IF TL THEN PR INT «NO !» ELSE PR INT 

«O K j » 

310 RESTORE *FT4:GOSUB *MEN:IF K=&H TI IEN 100 ELSE IF K=&F2 
THEN 200 ELSE IF K=&F3 THEN GOSUB *\ II.PtGOTO 100 ELSE IF K=&F5 
THEN T L=(T L=&0 ) : GOT O 300 ELSE GOTO 310 

350 *MEN:RHAD T$:LOCATE &I4-LEN TS/&2.& 1 :POKH & B FC A 1 ,&40: 
PR1NT T$;:POKE &BFCA I ,&0:PRINT « <C$:I OUATE ,&3:PRINT 
M F NU$( M + S U P ) : G C U RSOR ( & 2 .& 1 7 ) : G PR I N T « 0 A 1 B 1 B< )A » : 

K- ASC INKEYS &1:IF K=&A THEN POKK &BFE00.&8.&0.&4I :CALL 
&FFFDC ELSE IF K=&6 GOSUB *HLP 
360 RETURN 

400 *HLP:CLS :RESTORE *FHI:COSUB 4IO:RESTORE *FH2:GOSUB 
4 1 0; RESTORE *FH3:GOSUB 4 10: R ES' TORE *FH4:( iOSL’B 410:0 -S : RETURN 
410 READ M$:IF M$o»@» PR INT MS :GOTO 4 10 ELSE K=ASC INKF.YS 
& I :RHTURN 

440 *FE0:DATA « OPTION ABSENTE « 

490 *FE5:DATA « ERREUR LOGICIEL « 

500*COL:DATA NOIR,MARRON,ROUGE,ORANGE,J AUNE, VERT, BLEU. 
VIOLET, GRIS 

510 *RATE:DATS,BLANC,ARGENT.Q-& I I I .-A &I4.& I ,&2,-& I . 
*FM4:DATA «ICOU& I 1 ,&A,&5 


520 IDE ]» 

550 *FT0LEU R j[ VALEUR]! A DATA « CODE COUL:DATA 
560 * Kl" 1 : : DATA « — > CODFFURS « 

570 *FT20 *FT3:DATA « CO TOLER ANCE « 

58ALEUR « 

590 *FTULEl RS D'APRES VCOULEURS « 

630 4:DATA « CODE! & / votre valeur: *FD3:DATA «Entre «D'APRES: « 

640 *FD4: DATAOLER ANCE: » 

800Tser IRCL] pour A * Fil 0: DATA « < Près A A A A A A A A A A A A AA A Au> » 

8 1 0 *FH 1 :DATA «Conversion CODE COU .EU RS <=> VALEURS,»,» V ! .0 du 
2.08.93 par W. KLINGER».»».»( Presser une touche pour la suite)». @ 

820 *FH2:DATA «A l'aide des touches de menu, ehoisir»,»les couleurs lues sur la 
résistance, ».»]OFF] Admis.»>.»l RETURN] passe en mode VALEUR ->COU- 
LEURS,»,@ 

830 *FH3:DATA «)MENU| au menu principal, avec ]PF-5|»,»qui (des)active 
tolérance' (equi\ .| T ]) ».»[ .'édition peut être corrigée avec |C.CE|»,(s 
840 *l'| 14; DATA «Le programme peut être allégé très».» facilement, car compose 
de modules:». »Aide. Menu principal. Valeur- >couleurs.».»'l aille: 1 a 3.5 Ko (Cl 
doc jointe). ».fe 

POCKET APPLICATIONS 

Assocation déclarée (toi 1901 ) 

écrire à: IZP I W. KLINGER : LE PETIT TIZIN ; F-38210 TULIJNS 


îfanzine dédié aux 
pockets (PCiSOOv 
Sbarp, Çkao 
;: : u; fX-850E^.) 

U conseüs techmqikss, 
rubrique bricola^ : ; . 
fqà^drmeinQnt mlieam 
VOS triiez 

iistinès * jeux, utilîtâires.., 

SMüSIjip M : j ? . 

tarif lèjtfé^ 


BBS 


JbË bqarrf entièrement 
bêftéifôîe spécialisé dans 


S bits! Sans Baiitè. ; I blt Scçii,: 
Viiiï V2î, V22b» ¥32;:! V?2b: j 

2::: Te 


Sélecteur de fichiers sur PC-E500 par w.klinger 


Ce sélecteur de fichiers est en fait un programme Basic, appelé par une 
touche de fonction. Par défaut, ccttc touche de fonction, initial isée lors du 
lancement, est PF-5 (modification sur 1ère ligne du programme). Pour 
ces deux raisons, le sélecteur ne peut être appelé qu'en mode RLJN du 
Basic. 

INSTALLATION : sauver ce fichier sous le nom «S 1 : FILES.». N 'oubliez 
pas le point, c'est pour éliminer l'extension «BAS». 

UTILISATION : après lancement (depuis le mode RUN du Basic) par 
pression sur la touche de fonction (PF-5 par défaut), différents masques 
sont proposés : l*,BASI, l*.5*!, I*.SI. I *.*l, LOI 

Par pression sur la touche de fonction correspondant, le sélecteur de fichier 
du Basic apparaît, avec le masque choisi. Il est possible d’entrer son 
masque, en pressant la touche [RETURN]. Pour modifier le lecteur 
concerné, il suffit de presser la lettre correspondante : L. F, G, 1 pour S I , 
2 pour S2. Pour annuler, presser n’ importe quelle autre touche. 
Remarque : Si vous avez interrompu le programme (touche ] Break]), pour 
retrouver votre programme BASIC, il vous faut relancer le programme 
par RUN. Pour modifier le choix des masques, éditer la variable MS ligne 
10. 

Le principe de fonctionnement est le suivant ; 

* Par la touche de fonction, 

- sauver le nom du fichier éditeur BASIC ; 

- mettre le fichier «SI :FILES.» en éditeur BASIC ; 


- lancer le programme (par GO 10) ; 

* Dans le programme, 

- proposer le menu 

- si validation, mettre f instruction «F!LES»+masque dans le buffet - 
clavier 

- restaurer l'éditeur BASIC d'origine. 

9 KEY 5.»T5=BT.:BT.=»+CHRS &22+»S2:FILES»+CHR$ &D+»G. I0"+CHR$ 
&D 

10CLS : PR INT ****** v LO - F1LESELECT - par Willy ****»: M$=»i*. BAS ][*5* 
jp S || *.* ||*G |»:L$=C'HR$ (ASC MIPS ( BDATAS ,&2.& 1 )+& I4)+»:»:1F 
L$o»F:» AND LSo»E:» THEN I .$=»» 

20 LOCATE &5,&2:PRINT «Lecteur : «;LS;» (si. s2. E, !■. G) «:LOCATE 
&().&3:PRINT MS 

30 K$=INKE:Y$ & i : K-ASC KS:IF K>&F0 KEY 0,»IT.»+CHR$ &22+L$+MID$ 
(M$,(K-&FI )*&8+&2,&6HCHR$&D:GOTO 70 

40 IF K$=»E»OR KS=»E»OR K$=»G» Tl IEN L$=K$+»> ELSE 1F KS=» I " THEN 
I .S=»S 1 :» ELSE IF KS=»2“ THEN L$=»S2:» ELSE IF K=&D GOTO 60 ELSE 70 
50 GOTO 20 

60 K$-»»:l-OCATH &0,&3:PRINT «Entre/ le masque «;:LOCATE 

&12:PRÏNT L$::1NPUT KS:IF K$>»» THEN KEY &0.»FL»+CHR$ &22+LS+ 
KS+C'1 1RS &IYGOTO 70 ELSE 10 

70 IF ASC TS=ASC «S» BTFXTS =TS ELSE BTEXTS =LEFT$ ( BTEXTS 
,&3>+»TEXT.BAS» Si TS contient le BTEXTS de départ, restorer, sinon. 
TEXT.BAS 


56 


Poche computers N°4 




POCHE COMPUTERS 


H 



PETITES ANNONCES GRATUITES 


Us petites annonces sont publiées sous l'entière responsabilité de leur auteur. Nous nous réservons le droit 

de ne pas publier certaines petites annonces n 'ayant aucune relation directe ou indirecte avec les micros de 
poche ou les calculatrices. 



Vends pour HP48 et HP28, une imprimante 
82240 B thermique à infrarouge. 

Prix : 500 F Demander ER WA N ou laisser 
un message au 30 44 27 73. 

Echange programmes et astuces sur sharp 
F2L9300 Tél bureau 44. 65.19.20 
Poste 19-73 ALAIN FOURNIER. 

Vends psion sériés 3 + tableur + carte flash 
256 K+câble parallèle + liaison Pc + 
manuels 1000 F Tél : 63 58 76 29 

Vends portfolio 1 28K + carte ram I28K + 
logiciel LNA + modem (minitel) + interface 
parallèle + logiciel transfert foliolink St + 
livres le tout 3000F TEL : 88.62.44.47 

Achète pour organiseur casio S FR 20 KIT 
rRANSFERT de données vers Macintosh. 
Tél ( 1 ) 43 35 05 53 

Cherche schéma câble transfert Epson PX8 
vers AMSTRAD 6 1 28 par RS 232C. Jeux 
sharp 1 25 1 K7 doc sur poket PC et ZX88 
Pierre SOGNO 
GUERE 73241 ST GENIX. 

Vends HP95LX + kitcom : 1000F . 
Cherche palmbook 486 hanbit -s-disk dur 
interne achète au prix de vente 
Tél 94 34 29 74 RAYMOND 
sur répondeur : réponse assurée. 

Cherche calculateur graphique ou non, soit 
+ - de 32K et - de 200 I ■' , soit + = de 1 6 K 
et - de 1 00 F. 

VINCENT LUC IA BEL- Al R 1/25 
33440 AMBARES TEL 56 38 74 43. 

Vends HP95LX excellent état avec docu- 
mentation d’origine 1 200 F. 

LE BRIS CARPLNTRAS. 

TEL : 90 60 04 02. 

Cherche progs tous types pour Sharp PC- 
E500 (éventuellement carte ram) 

Mr FARHI 6 Cours Lieutaud 

13001 MARSEILLE OU 98 RUE DES 

G DS CHAMPS 75020 PARIS. 


Recherche kit HP "PDL” (Program 
Development Link) réf HP82208B. 

M. LAMBERMONT Michel 

01 imp. des Bouleaux - 91590 BAULNE 

tél 64.57.45.20 

Vends psion sériés 3 TBE 256 KO 
corn pl et 1000 F- AMSTRAD PEN PAD 
reconnaissance d’écriture TBE valeur : 
3000F vendu 1 500F 
Tel : 39.66.01 .49 REP si absent. 

Vends psion sériés 3 128KO + câble 
imprimante psion, parfait étal. 

Prix 1000F le tout. Torres Stéphane. 

18 impasse du pla I 1500 QUI ELAN 
TEL : 68.20.18.49. 

Vends porfolio I28K + Carte 128 K + 
cartes rom basic et math + adapteur secteur. 
Prix 2000F à débattre .TEL : 64.56.29.86 
BENOIT. 

Vends psion 3a 512K état neuf (5 mois) 
avec facture -emballage origine - 2000F. 
TEL. 47 .20.59. 38 (Provi nce) 

Vends sharp PC 3000 2MB + lecteur 
disquette - 4000F Tél 85.39.24.79 
Recherche livre voyage au centre de la HP 
2SS pour programmation en assembleur. 
Tél 48.90.81.75. 

Sauf matin et dimanche. 


Vends sharp EL-9300 (calculatrice graph.) 
avec progs. Etat neuf : 600F. 

vends sharp PCE500 avec extension 1 28 K 
et câble PC 1 000F 

1 EL 68.35.22.22 après 18 Heures. 

Vends TI85 état neuf + interface PC et Mac 
+ 4 livres pour la TI85. 

Olivier BOUDOU, 6 RUE DU BREIL. 
3 1 320 VIGOULET TEL. 65.8 1 . 1 0.38. 

Possesseur de casio FX880 cherche 
passionné pour conseils et échange. Achète 
interface et imprimante pour casio FX 880. 
Olivier BOUDOU, 6 rue du BREIL. 

3 1 320 VIGOULET TEL 65.8 1 . 1 0.38. 

Possesseur d'une TI85 : 

Recevez le premier numéro d'un fanzine 
consacré à votre calculatrice. 

Envoyez un timbre à Jérôme DU VAL 19 
AVENUE DES SAPINS 
25560 FRASNE. 

Vends HP28S + imprimante HP8220a 
excellent état sous garantie + manuel «la 
maîtrise de la HP 28S» TEL 90.95.99.2 5. 

Vds HP100LX Imo + carte flash 5 mo + 
kit de connection + log. 

Val >9000F, Vendu 5000F E. TARTU 
75 rue .1. L ABOUR DE 37700 
SAINT PIERRE DES CORPS 
TEL 47.32.07.41. 


Cherche cartes mémoire pour HP 48GX + 
échange jeux ou ntils pour HP48S ou G. 
(possible 4M0 sur DK pour S(x)) Tel : 
55.72.25.72.1e week-end. 


Assoc bénévole loi 1901 CHERCHE Psi< 
LZ32 ou 64 + accessoires Olivetti quaden 
1ère version 

TEI ..4.42.4 1.7 1 . Aide-mémoire. 

86340 LA VILLEDIEU DU CL A IN. 
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Vds HP48G tbe+utils + pro. math/disk PC. 
Prix à débattre (achetée le 21/09/93). 

V EL A Y G U ET FREDERIC 
9 rue du quai 30800 Saint-Gille 
TEL 66.87.47.58 (19H) 
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PETITES ANNONCES GRATUITES 



Vends portfolio 5 1 2 K + packalim + 
ext 256K + Lect cartes ram - hpc 104 + 
interface parallèle+foliohnk +3 cartes ram 
128 K 2500F TEL : 43.80.00.63. 

Ch. contact s/ psion 3 A pour ech. progs s/ 
jeu de PMU et LT Sportif ach, interf. Sérié 
et 2 TA565391 1 
PHRASAY SITH1TEH Alex 
3 rés. H1LDESHEIM appt29 
16000 ANGOULEME. 

vds : hp48sx + I carte ram 1 28k + carte 
«aq 1 i b r a ry » -fi n te rf ace mac+4 livres prog 
2300f tél (16/1)64.22.56.29 
Mr Trevedy, 7 rue de la république 
77300 FONTAINEBLEAU 

hp951x l mb + kit connection pc + carte ram 
lmb +ali mental ion secteur à vendre 
2000Frs tél : 94.32. 1 3.08 

vds casio PB 1000 avec 40 Ko : 700Frs 
tél : 68.60.67.13 


Echange ou donne programmes et recher- 
che contacts sur HP48GX et HP 200LX 
tél : 43.83.46.97 ( 19 à 20h30 le week end) 
R AM ADI ER Cyril - 59 rue R. Salengro 
93270 SEVRAN 

Vds SHARP PC-E500 + ext de I28K 
acheté 2000F, vendu 900F port compris. 
Demander Laurent (à partir de 18h) tel : 
68.54.25.25 

Collectionneur cherche pockets : HP/TI/ 
SHARP/NEWTON tel :07.01 .74. 13 

Vds Portfolio 5 1 2K + nombreux accessoi- 
res (cartes - fax-modem etc) 
prix très intéressant Dr GEREMY 5 rue 
de Gericault 76420 - BIHOREL 

Vds PSION sériés 3a 5 1 2K + pochette cuir 
ss garantie : 2500F tél 48.55.39.37 après 
20 h JF HUTH 93 MONTREUIL 

Vds Atari Portfolio 990F 
tél 47.26.21.89 M. Senaporak 

Vds PSION séries 3 - 256K avec sac + 
adaptateur : I 300F tél : ( 1 ) 43 38 92 80 


possible contre PC286 tél 44.80.46.37 (avant 
20h30) 

Benjamin NIC AISE 60 Le Fay 
Vds Olivetti Quaderno. Neuf 

léi 71 IA 71 

L V- P. Hrprr' Anr' * +*n- -m- ’ b P. >. ■ a 

Vds Casio FX850P 64 Ko avec manuel : 
800F Christophe LUCAS St Herblain (44) 
tél : 40.63.98.91 

Vds HP95LX avec kit communication prix 
1 100F tél : 46.39.32.80 

Vds PDA Amstrad (reconnaissance 

d’écriture). Prix 1900F 

tél : 46.70.1 1.88 (répondeur) 

Vds HP48SX + carte IIP solve + câble 
RS232 + disquettes, livres. Tout comme 
neuf prix 1 300F tél ( 1 )69.49. i 8.94 

Vds Psion 3a 256 K + sac + Berlitz 
valeur 4570 - vendu 3300F à débattre 
tél (1)44.58.80.03 

Vds pour Psion S3/S3a carte flash 512K 
pleine de sharewares : 800F 
Alain tél 43.93.57.30 (le soir) 


vds psion sériés 3a 5 l2Ko + sacoche luxe 
+ livres : graphies programming and first 
steps in programming : 2!00Frs sous ga- 
rantie tél : 40.96. 1 1 .74 (en soirée) Didier 
Cumenal 3 rue Buffon, 92 1 60 ANTON Y . 

Achète Atari Portfolio 384Ko ou 512Ko 
et divers matériels d'occasion pour Port- 
folio. ALEXANDRE tél : 34.21.78.27 

vds psion LZ64+étui+adapt.sect.+ tableur 
-fdatapack 64k+flash256K +commsiink 
Pc+manue!s=rev.techn. 1200Frs vds 
tableur psion sériés 3 + manuel 250Frs 
tél : 60. 10.64.42 le soir 

Achète PC 1600 SHARP + EXT.tél: 
J.P.WARAUX 76.85.07.78 

Achète Texas TI 99-4 A tél 63.38.23.36 

Vds Olivetti Quaderno + lecteur de disquet- 
tes. TBE tél 3 1 .77.63.3 1 E. ROYER 


Vds SHARP IQ 8500M 256Ko avec carte 
basic et traducteur anglais/français + kit 
connection PC neuf : 2000F tél : ( 1 ) 60 83 
44 05 après 1 9h 


Vds SI IARP IQ7 1 OOM organiseur 64Ko : 
300F tél : 72.27.84.28 

Vds logiciels pour Portfolio : 45F pièce 
Alex tél : (I) 34.21.78.27 

Vds Canon X07 et imprimante associée + 
imprimante epson FX850 
tél (I) 48.28.31.43 

Achète HP41C ou CV : 200F maxi 
tel : 84.22.56.34 Filinto ROLA 


Rech. schéma câble RS232 Epson PX8 à 


PC. Docs sur ZX88, Panasonic CF 170. 
Pierre SOGNO La Glière 73240 St GENIX 


Rech. Pocket (Port folio- Psion). Echange 


Vds Psion II LZ 64 + datapack + rampack 
+ formateur data + câble prix 10001 va- 
leur 3500F tél 86.96.32.55 

Vds pocket PC écran 80x25 1 MB 
prix 2300F tél (1)49.77.64.17 

Vds HP 1 00 LX 1MB avec carte PCMCIA 
5MB, + kit connexion, log. sous garantie. 
Valeur 9000F- vendu 5500F tél 47.32.07.4 1 
(départ. 37) 


Vds Atari Portfolio avec interface parallèle 
+ câble, prix 500F tél Ivan 76.26.09.45 

Achète ZX8 1 - ATMOS - Casio FP2Q0- 
MPI1 plus - C64 - livres - access - tél ( 1 ) 
64.56.31.63 

Vds Olivetti Quaderno 1MD DD 40MB 

état neuf. Prix 2500F 

tél ( 1 ) 47.89.35.84 (répondeur) 


Le . . / . . / 1995 Bon à découper, à recopier ou à photocopier. 

Placez ici votre texte d’annonce, 1 caractère ou espace par case. N'oubliez pas vos coordonnées ! 
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Pour les passionnés de la HP48, voici 
une série de 3 livres aux éditions 3DI. 

"Maillez la HP48G/GX" 

Ce livre esl le complément indispensable 
de la HP48. Il contient la bibliothèque de 
programmes mathématiques la plus 
complète et la plus performante qui soit 
sur cette calculatrice. L'auteur, JM 
FERRÂRD, professeur en classe 
préparatoire aux grandes écoles, est connu 
jusqu'aux Etats-Unis comme référence en 
matière de HP48 ! Vous trouverez dans 
ce livre 280 programmes répartis en 15 

chapitres. Les élèves de terminale trouveront là, avec un an 
d’avance, les maths qui les attendent après le bac. 



"LES SECRETS de la HP48G/GX" tome 1 

Du même auteur, ce livre est devenu l'ouvrage 
de référence pour tous ceux qui veulent aller 
plus loin avec leur HP48. Le tome I vous offre 
plus de 6000 points d'entrée dans la mémoire 
de votre calculatrice. Une description très dé- 
taillée de tous les objets de la ROM est minu- 
tieusement effectuée. 



’ BÉE 1 







"LES SECRETS de la HP48G/GX" tome 2 

Avec le tome 2, vous passez vraiment à la 
vitesse supérieure ! 

Programmez en R PL- système, en External. 

Pour les insatisfaits, les programmes AS Ml 8 1— B,, 


et AS MPC vous permettrons de travailler sur IgpË 
votre HP ou sur PC directement ! 

Ce livre est réservé aux personnes désirant H 
acquérir une connaissance au plus haut niveau. 

A déconseiller aux débutants ! 



HP48 : physique et chimie en prépa 

Conçu pour les étudiants en premier cycle universitaire ou en classes 
préparatoires scientifiques, ce livre présente des outils de base qui 
pourront, en tait, être utilisés dès le bac et pour traiter des problèmes 
rencontrés tout au long d'un cursus scientifique. 

Au programme : équilibres chimiques en solution aqueuse, dosages 
acidobasiques par eonductimétrie, diagramme de prédominance 
acidobasique, puovoir tampon d une solution, dosage de complexes 
par eonductimétrie, piles et couples d'oxydoréduction. ordre d’une 
réaction, tableau périodique des éléments, satellites, oscillateurs 
harmoniques, circuits électriques, résonance d'un circuit R LC et 
optique. 

Sur l’écran de sa I IP48, l'utilisateur pourra construire son circuit 
électrique ou son système optique ! 

Par H. CANON, A.RAMBOUX et L.FIEUX, éditions Dunod, 256 
pages, livré avec disquette. 


I*ou r les mordus du PSION SERIES 3/3a, voici 2 livres qui 
ont le vent en poupe actuellement, il s’agit de : 


"SERIOUS PROGRAMM1NG THE SERIES 3a" 

C e livre nous \ ient d'Angleterre. Après le serions programming 
the Séries 3", il est la suite logique de la sortie 
du nouveau pocket, le Sériés 3a. Proposé en 
milieu d'année 1994. il esl devenu un "Best- 
seller" en quelques mois. Ouvrage de 
référence pour tous ceux qui désirent 
approfondir leur connaissance en 
programmation OPL. Il traite de toutes les 
fonctions internes du Sériés 3a, ainsi que 
celles dédiées au graphisme. L’auteur, Bill 
AI I KEN, propose ici une multitude de 
programmes adaptés, en partant du principe de l'apprentissage par 
I exemple, méthode souvent ignorée dans de nombreux autres livres 
sensés nous informer î 




,.i * 


; 


"GRAPHICS PROGRAMMING 
THE SERIES 3" 

Le livre de référence du même auteur. 
Avec lui, abordez toutes sortes de gra- 

V..- 

phiques, y compris le 3D (perspectives- 
transformations-rotations), ainsi que 
l'animation graphique ! (Nota, une ver- 
sion pour le Sériés 3a sortirait bientôt...) 




? t t f a ; \ 


Pour les acharnés de la Casio voici : 

Casio fx pour le bac 

Trois livres en un : résumés du cours de mathématiques, boîtes à 
outils contenant les manipulations de base dans chacun des 
domaines abordés et une sélection de su jets du bac corrigés «fx en 
main». Ce livre exploite les capacités des tout derniers modèles 
Casio (fx 7900 et fx 9900), mais ne délaisse pas pour autant les 
précédents puisqu'il fournit en annexe plusieurs dizaines de 
programmes qui doteront votre Casio fx graphique, quelle qu elle 
soit, des fonctionnalités indispensables pour la bac. 

Par L. lieux et H. Lemberg, éditions Dunod, 256 pages. 98 FF. 
Casio fx : 300 programmes (quatrième édition augmentée) 

La quatrième édition de «300 programmes pour Casio fx» conserve 
bien sûr les 300 programmes qui font le succès de ce livre depuis 
plus de trois ans. La nouveauté réside en plus de 150 nouveaux 
programmes ajoutés a la précédente édition. Pour un prix inchangé, 
«300 programmes pour Casio fx» vous fait désormais profiter de 
plus de 450 programmes ! 

Les domaines traités sont les suivants : mathématiques, physique, 
probabilités, gestion, graphisme, jeux, etc. 

Par L. Fieux, éditions Dunod, 256 pages, 98 FF. 

Enfin, pour les inconditionnels de la TI85 
"Malliez" la T185 

JM FERRARD récidive avec ce livre qui comprend quelques 275 
programmes mathématiques de la terminale aux classes prépara- 
toires. Editions 3DI 
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ESSAI LE PALMNOTE 386 : super Pocket 


par Guy THOMAS 

Nouveau venu sur un marché en pleine explosion (le mol n ' est pas trop fort), le Palmnote 386 fait figure de 
précurseur en matière d'ordinateur de poche. Il y a fort à parier que d'ici la fin de ce sciècle, les constructeurs 
s'orienteront de plus en plus vers des pockets ayant des processeurs puissants ( 386-486 voire pentium ou powerpc), 
V utilisateur désirant de plus en plus être "en phase" avec son ordinateur de bureau. 

Historique : 

Sorti voici quelques mois aux USA, 
cet appareil est la suite logique d'un 
autre ordinateur qui fût proposé 
voici 1 an ou 2 ; le Pocket PC. 

Malgré un aspect séduisant sur le 
papier, ce dernier comportait de 
nombreuses lacunes. Sa mémoire, 
limitée à 1 MB ne permettait pas une 
intégration normale au système 
DOS qu'il contenait. Sa consom- 
mation excessive d’énergie le faisait 
plus apparenter à un notebook qu’à 
un pocket. Les logements pour 
cartes PCMCIA étaient mal étudiés. 

Son écran, pourtant un 80x25, n était 
pas très lisible. Enfin, son pro- 
cesseur, un 8086, se languissait 
quelque peu lors de calculs 
complexes. 


Description : 

A l’ouverture du colis, la bonne 
surprise fût que le Palmnote est livré 
d’origine avec un étui de protection 
bien conçu, un adapteur secteur, et 
un câble de liaison PC. Ayant pour dimensions 
(240mmx 120mmx29,5mm) pour un poids de 600gr, le 
palmnote n’est pas liliputicn. Comparé à un HP200LX ou à 
un Psion Series3a par exemple, il occupe un volume double. 
Pas question de le placer dans une poche intérieure de veston 
à la place du portefeuille, ou alors, dans ce cas vous risqueriez 
d’attirer bien des convoitises U! Mais le choix du 
consommateur s'orientera vers cet ordinateur lorsque le 
confort et la puissance d’utilisation prévaut à la taille. 

Sur un plan général, i! reprend pratiquement l’aspect extérieur 
du Pocket PC, mais les logements à cartes PCMCIA sont 
beaucoup mieux intégrés et plus fiables. On apréciera que 
le type 11 soit accepté. Il possède 2 compartiments ; un à 
droite et un à gauche. L'ensemble est assez réussi, et son 
large écran y est pour beaucoup. Cet écran de 80x25 
caractères (norme PC), sans être rétroéclairé, demeure très 


On remarquera le clavier QWERTY. Mais l'importateur MICROCARDS fournit le pocket 
avec un kit d'adaptation AZERTY tout monté. 

lisible. 11 a une définition CGA (640x200) à 16 niveaux de 
gris. 

Le clavier est large, bien disposé et permet la trappe rapide 
à 10 doigts (pour ceux qui le peuvent !). 11 ne possède pas 
de clavier numérique séparé, mais intégré. Ce petit handicap 
peut sc compenser, pour les "accros" des calculs par 
l’acquisition d'un petit clavier à brancher sur la prise série 
(vendu dans le commerce). 

Le "mininote" (c’est le nom porté sur son couvercle) possède 
2 interfaces. Dissimulées derrière un volet plastique, nous 
découvrons oh ! joie ! deux connecteurs standardisés DB9 
points pour la sortie série et DB25 points pour la sortie 
parallèle. Ceci est important car cela signifie qu'un câble 
PC simple est reliablc à ces connecteurs. Saluons ici le 
constructeur pour cette simplicité ; on voit trop de pockets 
avec des connecteurs non standards (et le consommateur 
passe à la caisse...) 

Ce pocket est alimenté par 4 piles bâtons R6, et possède 

une autonomie de 1 0- 1 2 heures en fonctionnement intensif, 

soit environ quinze jours - 3 semaines en utilisation normale, 
détail des connecteurs j| es j p 0 ssi ble et même recommandé de remplacer les piles 

par des accus rechargeables de type MH N 1200 mA. Une 
pile au lithium de 3V permet une alilnentation de sauvegarde 
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notamment quand on change les piles principales. Celle pile 
dure un an. Enfin, un bloc alimentation secteur 9V permet de 
se brancher sur secteur au bureau ou à la maison. Ces 
différentes mesures ne tiennent pas compte d'une utilisation 
de la sortie série ou parallèle ainsi que du fax-modem. Dans 
ce cas, l'autonomie sera moindre. 

Les fonctionnalités : 

Le Palmnote est livré avec deux tailles de mémoire interne 
possibles; soit en 2MB soit en 4MB, ce qui n'est pas si mal î 
La mémoire vive interne est répartie en 640KB de mémoire 
de travail , plus une petite part en disque C: ( 144KB) et pour 
la part la plus importante en E: (3MB). En D: se trouve la 
ROM ainsi qu’en C: et en F:. A noter l'astuce qui consiste a 
mettre de la ram et de la rom en C: H est possible notamment 
de reconfigurer les fichiers de démarrage. La totalité de cette 

C? S-- 

mémoire peut être configurée en EM S. Quant aux slots 
PCMCIA, ils acceptent donc le type ! (3,3mm d'épaisseur) ou 
le type II (5mm d'épaisseur), et donnent accès à une importante 
gamme de cartes. On peut citer (liste non exhaustive) : S ram 
jusqu'à 8MB (avec Stacker), Flash jusqu’à 80MB (avec 
Stacker), Fax-modem, cartes Scsi (cd rom - disque dur etc...), 
carte Ethernet, etc... A noter que le Palmnote possède en 
standard le logiciel ATA en rom qui permet le formatage et 
l’écriture des cartes Flash. 

II existe une version de l'appareil avec un Fax-Modem interne, 
ce qui a pour principal intérêt de libérer un des 2 slots à cartes 
PCMCIA. Ce fax-modem émet à 9600 bds et reçoit à 2400 
bds. Il est accompagné d'un logiciel interne à la machine. On 
peut aussi transformer le Palmnote en terminal aux normes 
VT52 ou ANSI (équivalent des normes DEC VT 100 - VT220/ 
240). 

A l’allumage de l'écran, nous découvrons 4 icônes : 



WORKS : Il s'agit ici de la version 2.00A pour ROM. Le 
célèbre logiciel intégré possède comme vous le savez un 
traitement de textes, une base de données, un tableur, et un 
logiciel de communications. L'utilisateur pourra facilement 
exporter ses données s'il le désire sur n’importe quel PC. A 
noter que le manuel, bien qu'assez pauvre au niveau des 
explications techniques, est par contre largement documenté 
sur le fonctionnement de Works ; il s'agit là d'une véritable 
initiation, et le débutant ne sera pas "dépassé" par une cer- 
taine complexité inhérante à l'informatique. Au sujet de 
Works, il faut reconnaître que même s’il n'est plus au top 


niveau des intégrés, il demeure une valeur sûre et affiche 
une simplicité sans pareil. 

PIM : Nous retrouvons l'efficace programme RACE PEN, 
bien connu des amateurs de pockets. Il intègre à la lois un 
gestionnaire de fichiers, un agenda, une calculatrice, un ca- 
lendricr perpétuel, une gestion de fiches, et un système de 
correspondance de mesures en tout genre. 

PC-LINK : C omme son nom l’indique, ce programme gère 
les communications entre un PC et le Palmnote, viainterlnk. 
Ce logiciel permet non seulement le transfert de données 
jusqu'à 1 1 5 000 bds mais il est aussi un véritable émulateur. 
Il est ainsi possible de diriger un PC à partir du Palmnote et 
inversement. On peut par exemple émuler l’écran du PC ou 
son lecteur de disquettes î 

SETUP : Vous permet de modifier la date, l’heure, le nom, 
etc... 11 vous renseigne sur la taille mémoire, et permet de 
configurer un mot de passe pour empêcher Ses personnes 
trop curieuses d’avoir accès à vos informations... 



Le palmnote muni d'une carte PCMCIA Flash et d'une Sram. 
l'ordinateur accepte les deux formats : type ! et type II 


Les périphériques : 

Le Palmnote étant compatible PC à 100%, on faire tourner 
pratiquement tout programme sous DOS aux normes CG A. 
Le constructeur nous a affirmé qu’il est possible de faire 
tourner également WINDOWS en version allégée. Dans ce 
cas, il vous faudra faire l'acquisition d'une carte Flash 
PCMCIA d'au moins 8MB, et même mieux 16MB pour 
implanter WINDOWS. 11 est possible également de con- 
necter un lecteur de disquettes ou un disque dur sur le port 
parallèle. Cependant, il est important de déconnecter le mode 
"économie d’énergie" (power management) qui empêche le 
processeur de fonctionner à plein régime. 

En résumé : 

Après ce (rapide) tour d'horizon sur ce pocket, il faut consi- 
dérer qu’il a plus d'un atout pour séduire. 11 en a besoin car 
la concurrence est rude autour de lui. Il n’y a qu’à citer l'Aéro 
de Compaq, le Handbook de Gateway 2000, ou le dernier 
Omnibook 600 de HP. Mais il reste le seul à pouvoir se 
transporter dans une "grande" poche, et ça, c'est formidable... 


61 


Poche computers N°4 






OUIüj uoüDKtuffy) 


POCHE COMPUTERS 



NOUVEAU ! ! ! Recevez directement chez vous les logiciels 
de POCHE COMPUTERS sur disquette 1,44MB ou 1,2MB (y compris les anciens numéros). 
Terminées les longues heures de frappe hasardeuses pour recopier un programme. 

En effet, vous retrouverez sur ces disquettes les logiciels du magazine sous format texte, 
en ASCII, que vous pourrez lire directement sur tout PC compatible. 

Voir bon de commande en bas de page. 


Demandez nos anciens numéros : vous pouvez les obtenir directement chez vous pour 
35F + 4F de port par numéro (35F+10F de port hors de FRANCE) 
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GAGNEZ UN ABONNEMENT ! 

Vous avez conçu un programme ou une application originale ? Vous avez des idées intéressantes ? 

Expédiez-nous votre listing ou dessin. Si possible tapé à la machine ou sorti sur imprimante, ou encore mieux, sur disquette PC 
compatible (peu importe le format : Ascii -Word - Works etc... ceci nous évite de longues frappes à la main toujours fastidieuses), 
on le publiera certainement, et vous contribuerez à la qualité de ce magazine, pour le plaisir de tous ! 


Aidez-nous ! Abonnez-vous ! 

BULLETIN D'ABONNEMENT à POCHE COMPUTERS 

(à recopier, ou à photocopier, ou à découper et à expédier à) 
POCHE COMPUTERS - 42220 - BURDIGNES - FRANCE 

Mme/M Prénom 

Adresse Code postal Ville 

Profession (facultatif) Tel Fax 

Je possède ou je désirerais posséder un ordinateur ou une calculatrice de marque 

Je suis intéressé par tels produits 


Oui, je désire m'abonner pour 6 numéros à POCHE COMPUTERS à partir du numéro | | inclus et je règle la somme 

de 180F (215F hors de FRANCE ). J'ai bien noté que je recevrai chaque numéro chez moi en franco de port, quelques jours 
avant sa parution en kiosque. 



Je ne désire qu'un ou plusieurs numéros : No 






et je règle la somme de 35F + 4F de port par numéro 


demandé. (35F+10F de port hors de France) 


au format 


Je désire recevoir la (les) disquettes concernant les numéros (anciens ou nouveaux 

3 1/2 pouces 


D, 


e Poche Computers, 


ou 5 1/4 pouces, et je règle la somme de 39F port compris par disquette. 

(ajouter 5F par disquette hors de France) 


Règlement par 


chèque 


mandat PTT 


chèques non acceptés hors de FRANCE, paiement par mandat 


Indiquez ici vos impressions, soyez assurés que l'on vous lira avec attention. 
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Utiliser pleinement le PORTFOLIO... 



par Etienne DEMARCQ 

* XZT ", "ï 

à fond sans certains périphériques. <* ■' rf« / u- Car ee merveilleux peiii appareil se saurait être utilisé 

1 > La mémoire : 

Le Portfolio possède, en version standard. 128KB de mémoire RAM 
interne. Il est utile de rappeler que la RAM est une mémoire dans laquelle 
on peut écrire et eltacer autant de lois qu'on le désire. Cependant, du fait 
qu il est obligatoire de créer un mini disque dur interne C: dont la taille 

8KB ei 8okb - ced di,mnuc d, “ «* possibilités. 
drL DLSK SU1V1 dun nombre entre 8 et 80 vous permet d’effectuer 
cette manoeuvre. Mais ceci peut ne pas forcément faire votre affaire En 

cllet, la mémoire restante, dite mémoire de travail va s'en trouver diminuée 
d autant : fo8KB moins la taille de votre disque dur interne. Avec ce petit 
compatible PC, on pourrait être tente de charger et d'utiliser certains 
ogiuels qui tournent" sur PC de bureau. Là, il va falloir déchanter car 
immense majorité des logiciels sur PC sont très gourmands (ne parlons 
pas ic, de ceux qu, fonctionnent sous Windows car ils sont innacessibles 
_) La s^o ut.on résidé à lame augmenter la mémoire interne (possible jusqu’à 
- foKBj. Le Poitloho peut s'en trouver alors métamorphosé. Certains 
langages Basic par exemple sont utilisables sans problème. I .a gestion du 
" ,SC|Ue !ntemcest grandement simplifiée. L'autonomie des piles n'est que 
nés peu diminuée. La consommation d'énergie est surtout liée au 
niieioprocesseur et a son architecture externe, ainsi qu’ à la consommation 
oe écran, mais pas ou peu aux mémoires. 

2) Les cartes mémoire : 

Sui le une gauche du Portfolio, se trouve un slol pcnueltanl d'enficher 
i"te carte mémotre au formai carte de crédit. La taille mémoire varie tic 
KB jusqu a I MB. On trouve deux catégories de cartes : 
a) Les cartes ROM qui ne peuvent qu'être lues mais non pas écrites 
Ces cai tes contiennent des logiciels préchargés, inaltérables dans le temps 
et insensibles aux fausses manoeuvres de l'utilisateur. 

On en trouve avec différentes applications telles que : Basic - Base de 

données -Agenda- Maths etc... 

... | b) . LeS ^ rteS RAM Sllr lesquelles on peu. écrire et effacer sans 
contrainte, biles fonctionnent comme des disquettes, n'augmentant pas la 

mémoire centrale du Portfolio, mais sa mémoire annexe. Elles sont utilisées 
principalement pour effectuer une double sauvegarde de son travail I) est 
, a,I,CUrs VlveiTient recommandé au débutant de s'en procurer une avant 
de commencer de rentrer des données, car. souvent, lorsque l'on découvre 

C 0rt,0 ' , °’ 011 P eche P ar ^prévoyance. Nombreux sont ceux qui ont du 
ictaper des heures de travail, pour avoir négligé ce détail : effectuer des 

sauvegardes régulières et fréquentes. L 'électronique est certes très 
puissante mais non infaillible, loin sans faut ! 

La cane mémoire RAM présente pour qualité principale de ne pas perdre 

es données qu elle contient, même extraite de l’appareil grâce à un micro 
accumulateur intégré. Ce si une sécurité. 

3) Les interfaces de communication : 

Le Porttoho ne possède pas, à l’origine, ni d'interface parallèle, ni d’interface 
set te Autrement dit, il ne peut pas communiquer avec l’extérieur Pour 
t emedicr a ce a, il est nécessaire de se procurer les interfaces adéquates. 
d) L interface parallèle se présente sous la forme d'un petit boîtier 

P aStl . queque lon Place dans le connecteur à droite du Portfolio. Elle permet 
son ce communiquer avec un PC compatible ou ATARI ST. soit de se 
relier a une imprimante parallèle. Dans le cas d'une liaison avec un PC. un 
ogicie! est fourni sur disquette ; l'équivalent de ce logiciel étant déjà inté-ré 
dans le Portfolio. Un simple câble 23 points mâle-mâle suffit à relierîes 
t eux ordinateurs. I .a transmission est on ne peut plus simple avec 3 ordres 

p -' : rr- ReCept ? n et Quitter ! (nola ; !l e st préférable de configurer le 
ort o 10 en mode "esclave"). On a accès au logiciel sur le Portfolio en 

tapant la touche Atari (rouge) + S (système), puis "transfert fichiers". 

a connection avec une imprimante parallèle (95% des imprimantes ont 

une sortie pat allèle...), est tout aussi aisée. L’impression se fait dans la 

plupart des cas au sein même des logiciels d’application intégrés à l'intérieur 

du 1 ortfoho. Le cable, lui, est différent : il s’agit d’un câble dit "ecntronics- 


parallcle . 23 points mâles d’un côté et 36 points de l'autre 
La connection à un ATARI ST ou TT nécessite, en plus de l’interface 
parallèle, un logiciel spécial et un câble adapté. Le transfert des fichiers 
s effectue, comme dans le cas du PC, dans les 2 sens. 

b) L'interface série est contenue dans un boîtier plastique identique à 

I interface parallèle, et se connecte au même endroit. Son application est 

I. os plus restreinte. Elle est nécessaire pour le transfert entre le Portfolio 

ci un Mac. hile est également utilisée dans certaines applications dites 

de laboi atone ; la transmission série permettant en principedes liaisons 
plus étendues que la liaison parallèle, 

4) L'alimentation : 

Le Portfolio es, alimenté par 3 piles alcalines ,1c type AA R6 II possède 
ams, une autononne d'environ 2(1 heures à plein régime, ou 2 mois 
d utilisation moyenne. Ce qui est plutôt bien ! (comparez avec les notebooks 
qm se glatissent de 2 à 3 heures d’autonomie !) 

M est à noter cependant que ( utilisation d'une interface parallèle ou série 
dnnmue I autonomie de l’appareil considérablement : environ 5 foismoins » 
h est possible de connecter une alimentation secteur 6 volts, ainsi que de 
1 emplacer avantageusement les piles par des accus rechargeables 
notamment des accus au Nickel Hydrure. dont la puissance est bien 
supérieure aux classiques accus Nickel Cadnium. 

5) Les logiciels : 

Le Portfolio est livré en standard avec plusieurs logiciels internes 

a) l n tableur compatible au niveau des fichiers avec Lotus 12 3 ou 
hxeef 

b) Un traitement de textes relativement peu élaboré, mais qui permet 

ma grc tout de laper des textes à la volée, sans trop de contrainte. A noter 

ou L fols que I on peut aisément exporter ces textes vers des logiciels de 

type Works, Word. Wordperfect ou Wordstar, pour ensuite les "traiter" de 
laçon plus agréable ou plus professionnelle. 

, C) 1 11 a ® enda qui de f aÇon perpétuelle vous permet de planifier vos 
i endez- \ ous. C e système peut être couplé à un système d’alarme ! 

d) Un carnet d'adresses vous permettant de ne pas oublier les 
coordonnées de vos amis ou clients ! A noter que le système de recherche 
pai lettre ou groupe est assez performant. 

Enfin, une calculatrice intégrée 

On peut aussi bien sûr trouver d'autres logiciels extérieurs. Notamment • 

- un Bas, c adapté au Portfolio, le PBASIC, compatible avec la plupart 
des langages basic. En effet le Portfolio ne possède pas de langage de 
programmait,™ intégré : ce qu, peut être pénalisant pour certains désirant 

' ! 4UCI , lalrs P r °P rcs ^PP'tcations. A noter que l'appareil accepte aussi 
li es bien te langage C et le Turbo Pascal (prendre une ancienne version à 
cdusc üé bi taille mémoire réduite). 

- une Base de données. Le Portfolio n'ett intègre malheureusement 

pas en standard. On trouve dans le commerce le puissant logiciel PBASE 

Assocterdtlfercms éléments entre eux, les trier, e, tes retrouver en fonction 

de differents ente, es prédéfinis à l'avance, voici la principale fonction 
u une base de données. 

un logiciel de mathématiques de type calculatrice en notation 
po onaisc inversée ou fonctions graphiques, te fameux PFSOLVER. 

Ht bien d autres encore... 
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JEUX POUR PORTFOLIO EN PBASIC v 4.5 

par Alexandre CAO 


Voici un ensemble de petits jeux dédiés au PORTFOLIO. Sans aucune prétention de la part de l’auteur ; ils 
auront également pour but de vous familiariser avec la programmation Basic selon la bonne vieille méthode, 
l’apprentissage par l’exemple. Vous savez sans doute que plusieurs versions du PBASIC de Gleason circulent 
actuellement. 1 m dernière en date étant la 4.91. Les différences entre les versions n 'ont pas véritablement d'influence 
sur le fonctionnement de ces programmes, excepté si vous en avez une très ancienne du type 2.0 ou 3.0, auquel cas, 
pas de garantie d'exploitation de la part de l'auteur. 


PUZZLE. BAS: 

Ce programme est un petit jeu dont le but est de remettre dans l'ordre croissant les 15 nombres qui composent 
le «PUZZLIER». Utilisez les touches du curseur pour jouer. 


CLS 

DIM A( J 5) 
RANDOMIZE 
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Page de présentation et Initialisation 


LOCATE 1, 9, 0: FRI NT «CAO ALEXANDRE pré- 


sente:» 

LOCATE4, 15: PR INT «PUZZLE vl.O» 

IF Port THEN BOX 3, 14, 5, 26, 1 : BOX 6, 3, 8, 37, 0 
I OUATE 7, 4 

REPEAT ‘Initialisation 


INCR (Q) 

WHILE A(R)<>0 R=RAND( 16) WEND 
A(R) = Q 

PR INT « » ; 

UNTIL Q=15 
PRINT « »: 

WHILE A(Q) <> 0 DEC R (Q) WEND ‘Cherche le «0» 
dans le tableau A() 
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Début du jeu ********** 


CLS 


LOCATE 1, 6: PRINT «PUZZLE vl.O par CAO Alexan- 
dre»; 

LOCATE 2, 6: PRINT STRING$(29, 196); 

IF Port THEN BOX 3, 4, 8. 16, 1 

FOR T = 0 TO 15: GOSUB 20: PRINT A(T); : N EXT 


LOCATE 4, 20: PRINT «Le but du jeu est» 

LOCATE 5, 20: PRINT «de remettre dans» 

LOCATE 6, 20: PRINT «l’ordre croissant» 

LOCATE 7, 20. 2: PRINT «les nombres.» 

T = Q: GOSUB 20: PRINT « «: GOSUB 20 
C - 0 
10 

REPEAT KS = INKEYS UNTIL K$ = «H» OR KS = 

«M» OR KS = «K» OR K$ = «P» OR K$ = CHRS(27) 

IF K$ = «H» AND T < 12 THEN A(T) = A(T + 4): 
GOSUB 20: PRINT A (T); : T = T + 4: A(T) = 0: GOSUB 
20: PRINT « «: : INCR (C) 

IF K$ = «M» AND T > 4 * INT{,25 * T) THEN A (T) = 
A(T - 1 ): GOSUB 20: PRINT A (T); : DEC R (T): A (T) = 
0: GOSUB 20: PRINT « «; : INCR (C) 

IF KS = «K» AND T < 3 + 4 * ÏNT(.25 * T) THEN A (T) 
= A(T + 1 ): GOSUB 20: PRINT A(T); : INCR (T): A (T) 

= 0: GOSUB 20: PRINT « «; : INCR (C) 

IF K$ = «P» AND T > 3 THEN A(T) = A(T - 4): GOSUB 
20: PRINT A (T); : T = T - 4: A(T) = 0: GOSUB 20: 
PRINT « «; : INCR (C) 

I = 0: WHILE A(I) = 1+1 INCR (I) WEND 
GOSUB 20 

IF KS <> CHR$(27) AND I <> 15 THEN 10 

IF T - 15 THEN IF I = 1 5 THEN LOCATE 8, 1 : PRINT 

«Vous avez gagné en «; C; « coups.» ELSE CLS 

END 

20 

LOCATE T / 4 + 4, 3 * (T % 4) + 5: RETURN 


CIBLE.BAS: 

Ce programme est un jeu dont le but est de détruire une cible, d’où le nom... Lancez le, vous comprendrez tout 
de suite comment jouer. 


CLS 

PRINT , «CIBLE par CAO Alexandre» 

PRINT 

PRINT «Pour quitter, entrez une vitesse de 999.» 

INPUT «Force gravitationnelle : «, G 

IF G <= 0 THEN G = 9.8 

SCREEN 4 

RANDOMIZE 

Co = RAND(55) 

D = RAND(190) + 45 


GOSUB 10 

IF PORT THEN PGSAVE «C:\TEMP.TMP»: STP = 3 
ELSE STP = 1 
C = 0 
GOTO 20 


10 ‘Routine de tracé des graphiques 

IF NOT PORT THEN Xa = 0: Ya - 0: Xb = 239: Yb = 

63: GOSUB 40 


Xa - 30: Ya = 63: Xb = 35: Yb = 63 - Co: GOSUB 30 
Xa = 40: Ya = Yb: GOSUB 30 * 
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Xb = 45: Yb = 63: GOSUB 30 

Xa = D: Ya = 63: Xb = D + 5: Ya = 58: GOSUB 40 

RETU R N 

20 “Routine principale du jeu 
INCR (C) 

WAfTSCREEN 7 

IF H < D THEN DÏST = D - H 


IF J >= OTHEN PS ET (EJ) 
IF J >63 THEN 1 = 239 

N EXT I 

IF H < D THEN 20 
IF H > D + 5 THEN 20 
WA1T 
SCREEN 7 


IF H > D + 5 THEN DIST = H - D ~ 5 

IF C > 1 AND Tmp <> 35 THEN PRINT «Distance entre 

le point d'impact»: PRINT «et la cible : «; DIST; « m.» 

25 IN PUT «Angle (]0;90|) : «, A 
IF A <= 0 THEN 25 

IF A >= 90 THEN 25 
A = A / 1 80 * PI 

26 IN PUT «Vitesse (V>0) : «, V 
IF V <= 0 THEN 26 

IF V = 999 THEN CLS : END 


PRINT «Merci d'avoir joue à CIBLE.» 

PRINT «Vous touchez la cible en «; C; « coups.» 

IF PORT THEN Kl LL «C:\TEMP.TMP» 

END 

30 “Routine pour tracer des lignes 

IF Xb <> Xa THEN M = (Yb - Ya) / (Xb - Xa) 

IF Xb <> Xa THEN B = Ya - M * Xa 
IF Xb <> Xa THEN 1F ABS(M) <= 1 THEN FOR X = 
Xa TO Xb STEP SGN(Xb - Xa): PSET (X, M * X + B): 
N EXT 


SCREEN 4 

IF PORT THEN PG LOA D «C:\TEMP.TMP» ELSE 
GOSUB 10 


H = V * V * SIN(2 * A) /G 
Tmp = INT(-1225 .* G / (2 * V * 
SIN(A) / COS(A)) 


V * COS(A) A 2) + 35 


IF Yb <> Ya THEN IF ABS(M) > I THEN FOR Y = Ya 
TO Yb STEP SGN(Yb - Ya): PSET {(Y - Ya + M * Xa) / 
M, Y): NEXT 

IF Xa = Xb THEN IF Ya <> Yb THEN FOR Y = Ya TO 
Yb STEP SGN(Yb - Ya): PSET (Xa, Y): NEXT 
RETURN 


IF Tmp < Co THEN Tmp = 35 ELSE Tmp = 239 
FOR I = 0 TO Tmp STEP STP 

J = 63 - INT(-(I * I) * G / (2 * V * V * 
COS(A) * COS(A)) + I * SIN(A) / COS(A)) 


40 “Routines pour tracer des rectangles 

FOR I = Xa TO Xb: PSET (I, Ya): PSET (L Yb): NEXT 

FOR I = Ya TO Yb: PSET (Xa, I): PSET (Xb, I): NEXT 

RETURN 


P4.BAS: (Puissance 4) 


Ceci est un jeu qui se joue à 2: utilisez les touches du 
la pièce. 


curseur pour vous déplacer et <Enter> pour faire tomber 


CLS 

C = 1 : P = 1 : DIM A(8): DIM B(8, 7) 

PRINT 

FOR Tmp = I TO 6: PRINT «_ _»: NEXT 

PRINT STRING$(9, 223): 

LOCATE 1,2, 0: PRINT «x» 

C$ = «x» 

10 KS = INKEY$: IF K$ = «» THEN 10 
IF ASC(KS) = 27 THEN LOCATE 1, 1, 1: CLS : END 
IF ASC(K$) = 13 THEN 12 
LOCATE l , P + 1 : PRINT « « 

IF K$ = «K» THEN DEC R (P): IF P = 0 THEN P = 7 
IF KS = «M» THEN INCR (P): IF P = 8 THEN P = 1 
LOCATE 1, P + 1: PRINT CS 


GOTO 1 0 

12 IF A(P) = 6 THEN 10 
INCR (C) 

IF C = 3 THEN C = 1 
INCR (A(P)) 

B (P, A ( P)) = C 

FOR Tmp = 2 TO 8 - A(P) 

LOCATE Tmp - 1, P + l : PRINT « « 
LOCATE Tmp, P + 1 : PRINT CS 
NEXT 

IF C = I THEN CS = «x» ELSE CS = «o» 

LOCATE 1. P + 1: PRINT CS 
GOTO 10 
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ATARI PORTFOLIO 

MICROCARDS - 42220 - BURDIGNES - FRANCE 
tél {33} 77,39.68.13 - fax (33) 77.39.19.60 

Tarif TTC au 01/01/1995 ( ce tarif remplace et annule les précédents) 

SOFTWARE 


Cartes mémoire RAM (format carte de crédit) 

Cardram CCR 128 495,00 F 
Cardrain CCR 256 690,00 F 
Cardram CCR 512 960,00 F 

Cartes mémoire ROM (format carte de crédit) 

Cardrom CCR 128 430,00 F 
Cardram CCR 256 580,00 F 
Cardram CCR 512 81 0,00 F 

(nota: les cardroms sont programmables uniquement avec un pro- 
grammateur spécial) 

Portfolios neufs 

Portf olio 128K 1750,00 F 

Portfolio 256K 1990,00 F 

Portfolio 384 K 2260,00 F 
Portfolio 5 12K 2510,00 F 

Portfolio occasion (garantie de 3 mois- en parfait état de mar- 
che, entièrement révisé atelier) 900F 

Extensions mémoire interne (augmentent la mémoire interne 
du Portfolio ; nécessite l’envoi de votre appareil) 

FMI 256K (ajoute 128K au Portfolio) 520,00 F 
FMI 3 84 K (ajoute 256K au Portfolio) 790,00 F 
EMI512K (ajoute 384K au Portfolio) 980,00 F 

Packalimentation Système remplaçant les piles par des accus 

très puissants (850 ou 1200 mA ) et se rechargeant dans le Portfolio 
par un bloc secteur. Ce système comprend la fourniture des 3 élé- 
ments : chargeur interne (nécessite donc l’envoi du Portfolio) + ac- 
cus + alimentation : Très fiable. Amortissement du système en quel- 
ques mois. Nécessite l’envoi du Portfolio. 

Le packalim avec accus de 850 mA 320,00 F 
Le packalim avec accus de 1200 ni A 420,00 F 

Alimentation de sauvegarde Complémentaire du Packalim, 
cette alim permet de sauvegarder les données du Portfolio en cas de 
problème d’alimentation générale (plantage, micro coupures etc...) 
Un micro accumulateur vient prendre immédiatement le relais des 
piles ou accus (conservation des données durant plusieurs mois sans 
aucune source d’alimentation ; nécessite l’envoi du Portfolio). 
Alimentation de sauvegarde 245,00 F 

Interface parallèle OU série 590,00F La parallèle = liaison facile 
entre un Portfolio et un PC ou une imprimante. L'interface série 
permet la communication avec un MAC. 

Câble de liaison PC 80,00 F 
Câble de liaison imprimante 80,00 F 

Changement de Rom interne Remplacement des versions 
1.052 ou 1.072 du bios par une version récente 1.130 ; permet d’éviter 
les plantages et autres erreurs division par zéro ! BIOS 370,00 F 

Accumulateurs surpuissants ! Ces nouveaux accumulateurs 
possèdent une puissance de 1200 mA avec mie tension maxi de 1,55 
volt, et pour une taille standard de type R6. Remplacent les piles du 
Portfolio et en augmentent son autonomie de 40%. Ils sont utilisables 
également dans d’autres appareils, ainsi qu'en photo et en modélisme. 

Le 850mA prix u. : 23 F - le 1200mA prix u. : 46 F 

Lecteur de cartes mémoire sur PC compatible : 1290F 

SERVICE APRES-VENTE ET 
REPARATION DES ORDINATEURS DE POCHE 

Devis gratuit sur simple demande 

Tarif forfaitaire : changement liaison écran-clavier : 380F 
pour le Portfolio : changement d’écran (occasion) : 450F 

: changement d’alimentation : 160F 

Copyright 1995 


PBASIC Dernière version 4.91 de BJ.GLKASON avec de nom- 
breux utilitaires Dos. Compatible GWBASIC, ce langage est parti- 
culièrement adapté au Portfolio. Il est fourni avec une documenta- 
tion pour débutants avec des exemples simples. N’occupant que 40K, 
il fonctionne sans problème avec un Portfolio standard, 
prix : 470,00 F (sur carte rom) 

AS FROPLAN Superbe logiciel d’Astrologie pour amateur ou 

professionnel. Fonctionne sur Portfolio standard, prix: 990,00 F (sur 
carte ram > 

PFSOLVER de R.NOMI. BEGUIN 

Avec ce module, vous n'aurez plus rien à envier à HP ! 

Graphisme et tracés de courbes ; fonctions exponentielles et polaires 
etc... Ce soft de qualité a été élaboré par un élève-ingénieur. Fournis 
sur carte Rom et fonctionnent sur Portfolio standard. 
Documentation explicite. Prix : 380.00 F 

PHASE 

Superbe base de données pour Portfolio. Gère jusqu’à 30 champs 
différents. Indispensable ! Fonctionne sur Portfolio standard et four- 
nie sur carte Rom. Documentation détaillée et d’apprentissage. 

Prix : 490.00 F 

GESTION FAMILIALE 

Pour gérer votre budget - cartes de crédit - chéquier avec établisse- 
ment des comptes et sortie sur imprimante. Fonctionne sur Portfolio 
standard. Fournie sur carte Rom. Prix : 490,00 F 

LE CONTROLEUR 

Puissant logiciel de gestion d’emploi du temps ; avec visites clients, 
horaires, relances, factures etc... Sur Portfolio standard et fournie 
sur carte Rom. Prix : 490,00 F 

JEUX 1 et 2 2 cartes mémoire ROM ludiques exploitant pleine- 

ment les possibilités du Portfolio. Jeux de réflexion, d’adresse etc... 
Fonctionnent sur Portfolio standard. Fournies sur carte Rom. 

Prix J EUX 1 : 380,00 F 
Prix JEUX 2 : 380,00 F 

ITILS 1 ,2.3 3 trois cartes ROM bourrées d’utilitaires du dos 

pour Portfolio, ainsi que de programmes divers. Elles fonctionnent 
toutes sur Portfolio standard. 

Prix UTILS I : 380,00 F 
Prix UTILS 2 : 380,00 F 

Prix UTILS 3 : 380,00 F 

MACFOLIO de R.THIBERT Av ec cet ensemble, soft + câ- 
ble, la communication entre le Portfolio et un Macintosh devient pos- 
sible. Fonctionne avec tous les modèles de Mac. Prix : 380,00 F 
Transfert ST/TT <— >PF Ensemble câble + soft permettant la 
liaison entre le Portfolio et un Atari ST/TT. Prix : 380,00 F 

ETUI de protection Magnifique étui en toile matelassée spéciale- 
ment étudié pour le Portfolio: 295,00F 

Garantie totale pendant une année sur tous nos produits. 
Frais de port colissimo+assu rance = 

30F ( PTT colieco) jusqu'à 300F ttc de matériel - 

45F jusqu'à 1500F ttc de matériel - 

60F jusqu'à 4000F ttc de matériel et par tranche au delà. 

45,00F de supplément de contre remboursement 

CATALOGUE SUR SIMPLE DEMANDE 

VENTE PAR CORRESPONDANCE EXCLUSIVEMENT 

(ouverture du lundi au vendredi inclus : de 9k à 13h et de 15630 à 19h) 


MICROCARDS 
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INITIATION A L'ASSEMBLEUR 8086 (pour débutants) 

par Thierry BODIN - suite du N° 3 de POCHE COMPUTERS 

Voici la suite de V initiation à l'assembleur. Nous espérons que vous vous "accrochez" toujours ! 

C'est évidemment le plus compliqué des langages de programmation ; mais c'est aussi le plus performant 
L'intérêt didactique est évident, car on peut aisément transposer la méthode d'apprentissage de l'assembleur sur 
8086 à d'autres microprocesseurs 

d’octets sauvés. Si vous avez toute une zone à remplir de 0, 
l’ instruction REP est très utile. 

! [REP] Répète CX fois l' instruction suivante. Si vous voulez, par 

! exemple, mettre 20 mots identiques dans une zone, voici comment 

il faut procéder (voir tableau C2). Cette instruction ne fonctionne 
! qu’avec les instructions précitées sauf LODSx, CLD et STD. SI 

et/ou DI seront ajustés automatiquement. Voici les variantes de 
REP: 

REPE et REPZ : Répète tant que CX>0 et Z F- 1 
REPNE et REPNZ : Répète tant que CX>0 et ZF=0 
(Des que l'une de ces 2 conditions est remplie, le processeur passe 
à l’instruction suivante.) 

[TABLEAU C21 


MOV 


MOV 


MOV 


; AX-7 1 

AX , [D I+TA B LE AU 1 1 

; AX=8 (OFFSET n’est ! 

; pas obligatoire) ! 

AX,[TABLEAU+BX| I 

; AX=2 1 

AX,[SI+BX+OFFSET TABLEAU 1 
; AX=4 (4+3+TABLEAU=élément 7) 


-+ 


Etudions ensuite de nouvelles instructions répaities en 4 catégories: 
[INSTRUCTIONS DE BASE] 

Comme nous l'avons vu, MOV est l’instruction la plus utilisée en 
assembleur alors nous allons faire un bref résumé dans le tableau 
CL Pour les registres de segments, l’affectation directe (MOV 
DS, 5) n'est pas possible. On est obligé de passer par un autre 
registre ou une variable. 

[TABLEAU Cl j 

+- • — — — — — — — h 

: EPI DW 1 234h ! 

I 1 

I i 

! MOV AX, nombre ;Vous pouvez bien-sûr mettre 1 
1 MOV [EPI], nombre ;un autre registre ou une autre ! 

! MOV AXJEPl } ;variable. Le contenu de la partie ! 

! MOV [EP!],AX ;droite sera copié dans la partie ! 

! MOV AX.BX ;gauche I 

Â — — Â 


+- 


-+ 


! MOV 

: mov 

! MOV 

; rep 
+ 


DI, offset ZONE 
A X, va leur ! 

cx,20 ; 

STOSW ! 


! MOV | SI |,3 est incorrect car le compilateur ne sait 
! pas si vous stockez un mot ou un octet ! 

1 dans DS: [SI ]. Il faut rajouter alors: 1 

I MOV BYTE PTR [SI], 3 ;si vous stockez un octet 
! MOV WORD PTR [SI], 3 ;si vous stockez un mot 


Pour manipuler les chaînes, quelques instructions nous sont 
fournies: 

LODSB, LODSW, CLD, STD, STOSB, STOSW, REP ,MOVSB, 
MOVSW, CMPSB, CMPSW, SCASB et SCASW'. 

[LODSB et LODSW | permettent de lire un octet (LODSB=LO AD 
BYTE) ou un mot (LODSW^LOAD WORD) stocké en DS: [SI] 
et le charger dans AL ou AX. SI est ensuite incrémenté ou 
désincrémenté de 1 pour LODSB et de 2 pour LODSW selon le 
contenu de DF (Direction flag). Pour choisir le «sens de 
déplacement» dans la chaîne, si vous voulez par exemple lire de la 
fin d'une chaîne jusqu’au début, on utilisera 2 instructions: CLD 
et STD 

CLD mettra l’indicateur DF a 0 et à chaque opération sur les chaînes 
avec les instructions ci-dessus, SI et/ou DI seront incrémentés, 
STD mettra l'indicateur DF à I et fait l’inverse de CLD. SI et/ou 
DI seront décrémentés. 

Sinon, les instructions terminant par SB concernent AL soit 8 bits 
et par SW r concernent AX soit 16 bits. 

[STOSB et STOSW] font l’inverse de LODSB et LODSW. Ces 
instructions sauvent le contenu de AL 

(STOSB pour STORE BYTE) ou AX (STOSW pour STORE 
WORD) dans ES:[DIJ. DI est incrémenté ou décrémenté du nombre 


[MO VS B et MOVSW ] Ces instructions sont très pratiques pour 
les copies de blocs. Le contenu de DS: [SI | est copié dans ES: [DI ] 
SANS PASSER PAR AL OU AX. Les registres SI et DI sont 
incrémentés ou décrémentés. Ces instructions servent surtout avec 
REP (on obtient donc REP MOVSx) ce qui évite de taper MOVSx 
20 fois de suite ou pire, LODSx et STOSx. 

| CMPSB et CMPSW ] Comparent le contenu de OS: | SI ] a ES:[DI ]. 
Si les valeurs sont identiques, l'indicateur ZF est égal à 1 sinon à 
0. (Idem pour SI et DI) 

[SCASB et SCASW] Recherchent la valeur de AL ou AX dans 
ES:[Dl|. Si vous voulez trouver, par exemple, la longueur d'une 
phrase dans un texte, il suffit de chercher le point avec les 
instructions du tableau C3. Dès que la valeur est trouvée, on passe 
à l’instruction suivante même si CX n'est pas égal à 0. 

[TABLEAU C3| 

+- — — — -+ 


PU S H 

POP 

MOV 

MOV 

MOV 


CS ; Ramène CS ! 

ES ; dans ES I 

AL,’.’ ; 2Eh ou 46d ! 

DI. OFFSET texte ! 

CX, OFFSET FINTXT-TEXTE 
; FINTXT permet de ! 

; calculer la longueur ! 

; totale du texte I 
MOV BX.CX ! 

CLD ; On incrémenté à ! 

; chaque opération ! 

REPNZ SCASB ; Recherche pendant 

; CX fois ! 

SUR BX,CX ; BX = longueur de ! 

; la 1 ere phrase ! 

TEXTE db 'Je programme sur Portfolio. Je L 
db 'lis donc Poche Computers !’ 1 

FINTXT: ! 
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INITIATION A L'ASSEMBLEUR 8086 (pour débutants) 



Pour la pile, voici les instructions: PUS H. POP. PUSHF, POPF 
| PU SH et POP| 

PUS H permet de sauver un mot dans la pile et POP le restaure 
(Tableau C4) 


[TABLEAU C4 


+ 


Ces 3 PUSH ont le même résultat: I 

r 

t 

MOV AX,1234h ! 

PUS! I AX : 

; Empile le contenu de AX I 
PUSH 1 234h ! 

; Empile 1234h (*) ! 

PUSH es: [EPI J ! 

; Empile le contenu de EPI ! 

! 

! 

EPI dw 1234h I 

(*) Instruction 286 et sup. Sur les modèles 
antérieurs, 1 ASM la remplace par une 
suite d'instructions équivalentes. I 


[PUSHF et POPF] 

Sauve et restaure les indicateurs. Lors d’opérations mathématiques, 
les indicateurs peuvent être modifiés et sont susceptibles de 
provoquer des erreurs. Si vous faîtes une soustraction (SUB) qui 
donne un résultat négatif puis une addition (ADD), l'indicateur 
S F est remis à 0 et vous ne pourrez plus savoir si le résultat de la 
soustraction était positif ou négatif. Il faudrait alors intercaler 
PUSHF entre SUB et ADD et POPF après ADD. 

Bon, c'est bien joli tout ça, mais on ne voit pas grand-chose à 
l'écran. C'est pour cela que nous allons étudier les interruptions 
qui nous proposent, entre autres, des fonctions permettant 
l'affichage et la gestion clavier. 

[LES INTERRUPTIONS! 

On appelle les fonctions fournises par P interruption en passant 
par les registres. Généralement, c'est AH qui sert. Dans notre tout 
premier exemple, pour afficher une phrase, on appelle la fonction 
9 de l'interruption 2 1 h qui permet d’afficher des phrases. Dans 
AH, on met donc 9 et dans DS:DX l'adresse du message en 
question. Vous avez sans doute remarqué que le dollar n’était pas 
afficher car c’est un marqueur de fin qui permet à la routine 
d’affichage de situer la fin du texte. Voici donc un extrait des 
interruptions proposées par le BIOS et le DOS (Tableau C5). Pour 
la fonction 4Ch de l'interruption 21 h, le code de retour permet 
d'informer le programme appelant sur le déroulement des 
opérations. Par exemple, vous faîtes un fichier BATCH (.BAT) 
qui affiche un menu et vous demande de saisir un nombre entre I 
et 3. Votre programme assembleur attend une touche et renvoie le 
n° demandé dans Al. (1.2 ou 3 et non 'U. ‘2’ ou ‘3’). Avec la 
fonction ERRORLEVEL, vous pourrez récupérer ce code. 

Pour plus de documentations sur les interruptions, vous pouvez 
vous procurer INTERRUPTIONS LIST dans le domaine public 
ou bien acheter des livres tels que «Programmer avec les 
FONCTIONS DE MS-DOS» par PSI (ISBN 2-266-04061 -8) 


[TABLEAU C5] 


Entrée: MOV AH,() ; Attend jusqu'à ce qu'une 
INT 16h ; touche soit tapée ! 
tic: AL = Code ASCII du caractère I 

AH = Code clavier des touches spéciales I 
(Fl -F 10. flèches de déplacement...) I 
Enlève le caractère du tampon-clavier 1 


A 

T A “ “ I 11 ■ " — I — ■■TMW. -II I IIIII ■ 

Entrée: MOV AH,1 ; Regarde si une touche est 
INI’ 16h ; frappée mais continue ! 

: l'exécution du programme ! 

Sortie: Si CE = 0 > pas de caractère ! 

Si CE = 1 > Idem que ci-dessus mais LAISSE 
le caractère dans le tampon. Si vous lapez ! 

A puis B sans appeler la fonction 0 entre I 
les 2 frappes, la fonction 1 vous renver- i 
ra 65 aux 2 appels. ; 

ï™!r ! 

A - 


A 


A 


1 Entrée: MOV AH,0 ; 

1 MOV AL, code ASCII du caractère 

1 INI' 17h ; Imprime le caractère 

i i 

i i 

l Sortie: Rien ! 

A — 

I Entrée: MOV 
I MOV 


■A 


INT 


AH, 2 ! 

.code ASCII du caractère 
21 h ; Ecrit un caractère à 
: l'écran 1 


1 Sortie: Rien 




— A 


Entrée: MOV AH.4Ch 

MOV AL.eode de retour 
INT 2 1 h 


ic: 


Rien ! 

hermine un programme et rend la main au programme 
appelant (généralement le DOS). ! 


+- 


! ET LES BUGS ? 

Avant de continuer l'apprentissage de nouvelles instructions, il est 
utile de savoir par quel moyen corriger les erreurs de 
programmation (bug ou bogue) n' apparaissant pas lors de la 
compilation. Ce moyen, c'est le Debugger : ce programme exécute 
votre code compilé instruction par instruction (on dit tracer un 
programme pas à pas) voir interruption par interruption, ce qui 
vous permet de trouver facilement les erreurs. Le debugger le plus 
connu est le programme DEBUG fournit avec MS-DOS, très 
pratique pour les petits programmes mais qui devient rapidement 
limité lors du traçage de gros programmes. Vous devrez alors 
songer a acheter T URBO DEBUGGER (Borland) ou mieux; 
QU AID ANALYZER (Quaid Software Ltd. qui a plusieurs 
revendeurs en France) qui prend moins de place en mémoire et qui 
offre de nombreuses possibilitées en matière de traçage. Pour un 
résumé succint des commandes de DEBUG, consultez le tableau 
C6 et votre manuel fournit avec le DOS. 
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[TABLEAU C6] 


Tapez DEBUG sous DOS puis lors de l'apparition du 

1 

1 

N nomdufichier.com indiquez ici le nom de votre ! 

programme compilé ! 


L 1 00 


U offset 


D offset 


;Charge votre programme à 

d’adresse I OOh ( . C O M ) ï 

! 

1 

; Affiche les instructions désassem- 
blées à partir de l’offset désiré 1 
;(par défaut, c’est l'offset du dé- 1 

but du programme soit 1 OOh) ! 

1 

1 

; Affiche le contenu de la mémoire 


R nomregistre ;Change le contenu d' un registre 

;Si nomregistre n'est pas précisé 1 
;affichage du contenu de tous les ! 
ireeistres ! 


T =offset 


Q 


;Traee instruction par instruction ! 
; —o ffset pe ri net de t race r jusqu’à ! 
d'instructi on s u i v an t off s c t ! 

;{pratique pour ne pas tracer le 1 
;contenu d'une interruption ou ! 
;d'un sous programme) ! 

t 

1 

; Retour au DOS 1 


+• 


Ceci étant dit, étudions les opérations arithmétiques et logiques. 
Pour ceux qui n'aiment pas les maths, rassurez-vous, ce n'est pas 
compliqué ! 

Les 4 instructions arithmétiques qu’INTEL nous a offert sont 
T ADDITION, la SOUSTRACTION, la MULTIPLICATION et 
la DIVISION. Elles peuvent s’effectuer sur 8, 16 ou 32 bits signés 
ou non. 

[ADDITION | 

On l'effectue grâce à l’instruction ADD. Son principe de 
fonctionnement est très simple: la valeur de l'opérande GAUCHE 
sera ajoutée à l’opérande DROITE 

(ADD opérande, valeur -> OPERANDE = OPERANDE + 
VALEUR). 

Si jamais la somme dépassait la valeur maximale que peut contenir 
le registre ou la variable, le bit CR est mis à 1 . Si vous faites une 
opération de 2 nombres de 16 bits et que la somme dépasse le 
nombre 65536 (0 à 65535) que peut contenir ce type de registre, 
on se servira, par exemple, de DX pour ajuster l’opération à l’aide 
de l'instruction ADC qui récupère la valeur du CARRY (ou retenue 
ou CR) et Lajoute à DX ainsi que la somme que vous désirez 
(ADC opérande, valeur -> OPERANDE = OPERANDE + 
VALEUR + CARRY). 

En tapant ADD AX,2 et que AX est égal à 65534, après l’opération 
AX sera égal à 0 et le CARRY sera à 1 . Donc ADC DX,0 ajoutera 
1 (CARRY )+0 à DX. 


Si vous devez ajouter 1 à une opérande, utilisez l'instruction INC 
comme INCrémenter, ZF étant mis à 0 si le résultat est nul (voir le 
tableau DI). Vous pouvez utiliser tous les modes d'adressages 
vus précédemment mais, comme toutes les autres instructions, 
F utilisation de 2 variables est impossible (ex: ADD EPI ,EP2). 


[TABLEAU DI ] 


+ 


EPI dw 125 ; (7DH en hexa) 1 

I 
t 

MOV AX,64232 : Initialisation (OFAESh) S 
MOV B X, 2000 ; des (7D0h) ! 

MOV DX.O ; registres ! 

ADD AX.BX : AX = AX + BX soit ! 

; 64232 + 2000 = 66232 ( 1 02B8h) 1 
; A X sera é ga I à 662 3 2-65 5 3 6 I 
; soit 696 (2B8h) ! 

ADC DX.O : DX - DX + CARRY + 0 soit = 1 1 

ADD AX.5 ; AX = 701 soit 2BDh ! 

: et DX:AX = 102B9h soit 66237 1 
ADD BX.|EP1 1 ; BX = 2125 soit 84Dh ! 

INC AX ; AX - AX + 1 (702 soit 2BEh) ! 

INC [EPI] ; EPI = 126 soit 7Eh I 

ATTENTION! Pas de retenue (CARRY) pour INC ! ! 

+ — + 

[SOUSTRACTION] 

L'instruction SUB comme SURstraet permet de soustraire une 
valeur à une opérande (SUB opérande, valeur -> OPERANDE = 
OPERANDE - VALEUR). En soustrayant 1 à une valeur qui est 
égale à 0 vous obtiendrez OFEEFh pour un registre 16 bits 
(considéré comme -1 si vous travaillez en nombre signés) et le 
CARRY sera mis à I (récupérable avec l'instruction SB B). Pour 
soustraire la valeur 1 ; utilisez DEC comme DECrémenter (voir 
tableau D2). N'oubliez pas non plus que les nombres négatifs, 
exemple le nombre -2, ne s'écrivent pas 10000010b mais 
1 1 1 1 1 1 10b ; c’est ce qu’on appelle le COMPLÉMENT A DEUX 
(inverser tous les bits et ajouter 1 ; voir instruction NOT dans la 
partie OPERATIONS LOGIQUES). 


[TABLEAU D2] 


+- 


EPI dw 125 ; (7DH en hexa) I 

t 

f 

MOV AX, 150 initialisation (96h) 1 

MOV DX.l ; des (soit DX:AX= 10096h ! 

; soit 65686) ! 

MOV BX,200 ; registres (0C8h) ! 

SUB AX.BX ; AX = AX - BX soit 1 

; 65686 - 200 = 65486 (OFFCEh) ! 

SBB DX.O ; DX = DX - CARRY - 0 soit = 0 ! 
SL B AX.5 ; AX = 65481 soit 0FFC9h 1 
; et DX: AX - 0FFC9h soit DX = 0 1 
SUB BX.IEP1] ; BX = 75 soit 4Bh ! 

DEC AX : AX = AX - 1 (65480 soit 0FFC8h)l 
DEC [EPI] ; EPI = 1 24 soit 7Ch 1 

ATTENTION! Pas de retenue (CARRY) pour DEC 


+ 


I « 

, t 


+ 
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pour la division par 0. L'interruption 0 sera alors appelée et le 
programme sera stoppé net (Tableau D5). Notez aussi que 1DIV 
ne modifie pas les indicateurs. 

[TABLEAU D4 - LES INSTRUCTIONS CBW ET CWD] 


L'instruction LAHF permet de résoudre le problème que nous pose 
INC et DEC lorsque le compteur arrive à OFFFFh+l ou 0-1. En 
effet, LAHF copie une partie du flag dans le registre AH (Load 
AH Flag) et si le Sème bit soit AF (Auxilliary Flag) est à 1 alors i! 
y a retenue. Nous verrons plus en détail ce problème dans les lignes 
suivantes car nous devrons utiliser des instructions de test et de 
saut expliquées plus bas. 

[MULTIPLICATION | 

Pour multiplier, on utilise l’instruction MUL. On peut multiplier 2 
opérandes de 8 bits ou 2 opérandes de 16 bits mais dans tous les 
cas c’ est AL ou AX qui est multiplié par une variable ou un registre. 
Si AL est multiplié par BL alors AX prendra la valeur du résultat. 
Par contre, si on multiplie AX par BX, c’est DX et AX qui 
refléteront le résultat de l'opération. (MUL opérande -> AX ou 
DX:AX = AH ou AX * opérande). AH ou AX peut être multiplié 
par tous les registres sauf les registres de segment (DS, ES et SS). 
Cette instruction ne traite que les nombres NON SIGNES (utiliser 
IMUL pour les nombres signés, en effet, le programmeur doit savoir 
si ses nombres sont signés ou pas !). Il n’y a pas de débordement 
de capacité car dans tous les cas le résultat pourra tenir sur 1 6 ou 
32 bits. Pour IMUL, si le bit de poids fort du résultat (dernier de 
AH ou DX) est égal a 1 alors CF et O F sont égaux à l sinon à 0 
(voir TABLEAU D3). 

| TABLEAU D3] 

— h 

EPI dw 524 S 

EP2 db 1 8 1 

t 
i 

MOV AL, 200 1 

MOV BL,[EP21 ! 

MUL BL ;AX = 200 * 18 = 3600 1 
MOV CX, [EP 11 ! 

MUL CX ;DX:AX = 3600 * 524 ! 

;DX:AX = 1 886400 ! 

;DX = ICh AX = C8C0H I 
MUL [EP 1 1 ;0C8C0h *524=5 1 392*524 I 
;DX: AX=26929408 1 

;DX est alors écrasé ! 

MUL word ptr [BX] ;Multi plie un 1 
;MOT ( 16 bits) contenu ! 

;dans DS:[BX| par AX. 1 
MUL byte ptr [BX] ".Multiplie un ! 

;BYTE (8 bits) contenu ! 

;dans DS:[BX] par AX. ! 

,\ ,\ 

Même chose pour IMUL. 1 

8 bits = {-127;+ 1 28} 1 

16 bits = {-32767;+32768} ! 


+ 




[DIVISION! 

L’instruction DIV divise AX par un dénominateur 8 bits (AL = 
résultat et AH = reste) ou bien DX:AX par un dénominateur 16 
bits (AX - résultat et DX - reste). Elle fonctionne selon le même 
principe que l’instruction MUL et ne traite pas les nombres signés 
(CF 1DIV). De plus, on ne peut diviser 8 bits par 8 bits ni 16 bits 
par 1 6 bits; on devra utiliser l’instruction CBW (voir tableau D4). 
Si on divise 50000 (16 bits) par 2 (8 bits) le résultat ne pourra 
tenir dans AL alors il y aura débordement de capacité, même chose 


MOV AL,78h (120) [Conversion 
CBW ;AX = 007 Sh [ 8 bits 
MOV AL,0C8h (-56) } en 

CBW ;AX = 0FFC8h } 16 bits 

4 I 

MOV AX,27 1 Oh ( 1 0000) } 

CWD ;DX = 0 [Conversion 
;AX = 271 Oh } 16 bits ! 
MOV AX.ÜFDLBh (65000)} en 
CWD ; DX = OFFFFh } 32 bits 
;AX = 0FDE8H } 1 


CBW et CWD prennent le bit de poids fort 
et le recopie sur tous les bits de l'autre ! 
registre (AH ou DX) 1 

CBW - Couvert Bvte to Word ! 

m* 

CWD = Couvert Word to Double Word 


[TABLEAU D5] 


+■ 


EPI dw 
EP2 db 1 8 ! 

t 

t 

MOV AL. 200 ! 

MOV BL,[LP2j ! 

DIV BL ;AL = Il ; AH = 2 1 

MOV AX,[LP1 ] I 

MOV DX,5 ; 

MOV CX.24 1 

;DX:AX= 5 * 65536+ 524 I 
;DX:AX= 328204 ! 

DIV CX ;AX = 1 3675 DX = 4 
CWD Convertit AX en 32 1 

;bits (DX:AX). DX est ! 

;alors égal à 0 si AX ! 

;est positif sinon à - 1 ! 

DIV [EPI] ; 13675 / 524 = 26 1 

;AX = 26 1 

;DX = 51 ! 

CBW convertit AL en AX. Tous les 
1 bits de AH prennent la valeur du ! 

! bit de poids fort de AL ! 

^ n-nrn wmm* ■ m ■ m 

Même chose pour 1DIV. I 

8 bits = {- 1 27:+l 28} ! 

16 bits = (-3276 7; +3 2768} ! 


A 


Pour avoir l’opposé d'un nombre, on utilisera F instruction NEG 
qui calcule le complément à deux (inversion des bits d'une opérande 
et ajout de ! ) et qui nous donne la représentation binaire d’un 
nombre négatif: 

•L.- 

MOV DX,3 

DX ;DX= -3 
DX ;DX= 3 

Voilà pour les opérations arithmétiques. Dans le prochain numéro 
de POCHE COMPUTERS nous passerons aux opérations logiques. 
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DE SIGNAT ION 

SHARP 


PC30001MB 
PC3000 2MB 



Packl : fait passer le PC 3000 de IMBà 2MB 
Alimentation secteur 1 A 
Lecteur de disquette 1 ,44M B 
Câble parallèle imprimante 
Câble série Laplink (transfert sur PC) 

Accus Mé tal Hydrure Nickel 1200 mA (unitaire) 
par 3 
par 6 
par 12 

au delà (prix à l’unité) 


Etui de protection matelassé 
Pack alimentation (accus + chargeu r interne+alim. sect) 
Cartes mémoire PCMCIA (voir page suivante) 


Organiseur IQ 8900 
Organiseur IQ 8920 


HEWLETT PACKARD 


HP48G 32KB 
HP48G 128KB 


HP48G 256KB 
HP48GX 128KB 
Augmentation mémoire pour HP48G à 128KB (nouveau) 
Augmentation mémoire pour HP48G à 25 6KB (nouveau) 
Câble de liaison HP48 <-> PC (avec soft) 


Câble de liaison HP48 <-> MAC 
Câble de liaison HP48 <-> minitel (avec soft) 

Câble de liaison HP48 <-> HP48 (nouveau 9600bds ! ) 


Kit de liaison HP (HP48G/GX <-> PC) 

Kit de liaison HP (HP48G/GX <-> MAC) 

Cartes mémoires ram pour HP48 SX / GX (pré c i sez) 
48HP1 28 (1x128KB) 

48HP256 (2x128KB) 

48HP51 2 (4x128KB) 

48HP1024 (8x128KB) 

Cartes mémoire rom pour HP48 SX / GX (p récisez) 
Utils 1 ou Utils 2 ou Jeux 1 ou Jeux 2 ou HPMANIAC 1 
(entourez la ou les c artes choisies) 
par 2 cartes 
par 3 cartes 
par 5 cartes 

Carte PacMath V2.0 pour 48 SX ou GX (précisez) 

HP 200 LX 1MB (nouveau) 


HP 200 LX 2MB (nouveau) 


Kit de connection complet HP2 0QLX <-> PC 
Câble seul pour PC (avec soft) 

Carte Fax-modem pour HP95 (2400bds) 

Carte Fax-modem pour HP 1 00/200 LX (9600bds) 
Convertisseur série/parallèle (pour imprimante) 
artes mémoire PCMCIA (voir page suivante] 
disquettes PC 1 ,44MB freeware pour HP95/1 00/200 
17 disquettes PC 1,44MB freeware pour HP48S/SX/G/GX 


Livre : Les secrets de la HP48 S/SX ou G/GX (entourez) 


Livre : Voyage au centre de la HP48 G/GX 
Livre : La maîtrise de la HP48 S/SX 


Livre ; Externals et Assembleur HP48 S/SX ou G/GX 


Livre : Mathez la HP48 G/GX 


Prix U 


3450F 
3990F 
1090F 
165 F 
2495F 


46F 
129F 
240F 
456F 
36F 


295F 

380F 


3250F 

3690F 

1190F 
1690F 
1890F 
1990F 
595F 
795F 
180F 
180F 
245F 
180F 


620F 

620F 


380F 

720F 
980F 
1 450F 
890 F 
4290F 


5390F 


820F 
230F 
1 760F 



220F 


220F 

22QF 

220F 


200F 


Total 


PSION 


PSION Sériés 3a 256KB (^française) prix cassé \ 


PSION Sériés 3a 51 2KB (^française) prix cassé ! 


PSION Sériés 3a 512KB (v.française) couleur bois î 
Lecteur de disquettes pç 1.44MB 


SSP RAM 128KB 
SSP RAM 256KB 
SSP RAM 512K B 
SSP RAM 1 MB 
SSP FLASH 128KB 
SSP FLASH 256KB 
SSP FLASH 512 K B 
SSD FLASH 1MB 


SSD FLASH 2MB 


SSP FLASH 4MB (nouveau! 

Liaison série PC ou MAC (entourez le modèle) 


Liaison parallèle (pour imp r î m a nte) 
Kit développeur standard 


Kit développ eur profes sionnel 
FAX-MODEM (anglais 1 


Emulateur minitel seul ( soft s ur ssd) 

Emulateur minitel (soft + modem V23) 

Emulateur minitel (soft ssd+modem V23 -t-se rial lînk 
Pack 4 : fait passer le Sériés 3 128K à 25SK 
Pack 5 : fait passer le Sériés 3a 256K à 51 2K 
Pack 6 : fait passer le Sériés 3a 51 2K à 1 MB 
Pack 7 : fait passer le Sériés 3a 512K à 2MB 
Les packs 6 et 7 ne seront pas disponibles avant 
avril 1 995. Ces packs nécessitent l'envoi du Sériés 3 


Etui cui r de luxe 
SOFTS 

Winlink Windows (co mplément de serial ünkl 
Jeux 1 
Jeux 2 
Jeux 3 

Chess (series3 de Plus de 256K uniquem ent 1 
Psion money sur SSD (3a uniquement) 
Accounts and expense s 
Professions ! finances 
Agenda lînk 
Spellchecker 
Ber litz Phrase^ 

ht manager Eu rope 
Berlitz interpréter 


2790F 


31 90F 


3690F 


2690F 


530F 


1180F 


2180F 


440F 

680F 


1080F 


1480F 


2180F 
3170F 
760F 


410F 
2290F 


3490F 


1890F 


590F 
1390F 
2390F 
IF 

390F 
1390F 
2390F 


340F 


Contact Edqe 


Timebase solo 
Sériés 3/3a TOOL S 
VT 100 emulator 
Paint and compose 

Livre : Serious programming tJie Sériés 3 
Livre : Serious programming the Sériés 3a 
Livre : Graphics programming the Sériés 3 
Shareware et Freeware pour Psion Sériés 3/3a 


La disquette PC 1 ,441715 (port compris) 


Les 10 disquettes PC (port non compris) 
Les 30 disquettes PC (port non compris) 
Les 88 disquettes PC (port non compris) 


420F 

490F 

490F 


530F 


580F 
530F 
530F 
790F 
1190F 
590F 


1490F 


1 49QF 
530F 
690 F 


45F 


320F 
86ÔF 
1990F 


pour la liste des Shareware, expédiez une en velopp î timbrée 


a vc 


tre nom) 
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DESIGNATION 

Prix U 

nb 

Total 


DESIGNATION 

Prix U 

nb 

Total 

ATARI PORTFOLIO 





ATARI PORTFOLIO (réparations - suite) 




Portfolio neuf de base 1 28KB 

1750F 




Forfait changement d'écran (neuf) 

720F 



Portfolio neuf 256KB 

1990F 




Forfait changement d'écran (occasion) 

460F 



Portfolio neuf 51 2KB 

2510F 




CARTES PCMCIA 2.0 type 1 




Portfolio occasion révisé atelier - garanti 3 mois 

900F 




(ces cartes fonctionnent sur SHARP PC 3000- 




Cardram 128KB 

495F 




HP95-100 -200 - Omnibook- Quaderno/ philos 




Cardram 256KB 

690F 




et la plupart des subnotebooks du commerce) 




Cardram 512KB 

960F 




cartes mémoire sram 




Cardram 1MB 

1490F 




128KB 

570F 



EMI 256KB 

520F 




256KB 

650F 



EMI 384KB 

790F 




512KB 

820F 



EMI 512KB 

970F 




1MB (prix spécial) 

690F 



Pac kal i mentatî o n 

380F 




2MB 

2190F 



Alimentation de sauvegarde 

245F 




cartes mémoire flash 




Interface parallèle avec soft pour PC 

590F 




256KB 

520F 



interface série (avec soft) 

590F 




512KB 

750F 



Câble de Maison // PC 

80F 




1MB 

1100F 



Câble imprimante// 

80F 




2MB 

1790F 



Lecteur rapide de cartes mémoire sur PC 

1290F 




4MB 

2490F 



Manuel technique et de programmation 

250F 




8MB 

3290F 



Etui de protection matelassé 

295F 




10MB 

3790F 



Changement de rom nouvelle version 1*130 

370F 




20MB 

6290F 



SOFTS (sur carte rom) 





divers PCMCIA 




Turbo forth v 3.0 (version complète PC + Portfolio) 

795F 




lecteur de disquettes sur carte PCMCIA (HP1 00/200] 

2290F 



PBASIC 4.91 

470F 




disque dur 105MB (210MB doublé stac) type 10 

2790F 



PFSOLVER v 1.0 (pour Portfolio de 128KB) 

380F 




disque dur 170MB (34ÜMB doublé stac) type 111 

3890F 



PF SOLVER v 2.0 (pour Portfolio de + de 1 28KB) 

380F 




disque dur 85MB type IV (pour Toshiba) 

3790F 



Gestion familiale 

490F 




Carte ethernet 

1790F 



Le contrôleur 

490F 




Carte SCSI (type i) 7 connections possible 

2590F 



P BASE 

490F 




Carte adaptateur ports type H et type III 

1550F 



Jeux 1 

380F 




Carte FAX-MODEM 14400-57600 bauds type 1 

2790F 



Jeux 2 

380F> 




NOUVEAU 386 PALMBOOK 




Utils 1 

380F 




Paimnote2MB 

8190F 



U fils 2 

380F 




Pa!mnote4MB 

8990F 



Utils 3 

380F 




Supplément pour Fax-modem interne 

1450F 



MacFolio 

380F 




Si achat joint avec carte PCMCIA, remise 10% sur le 

3rtx de la 

cart< 

; 

Kit de transfert PF <-> Atari ST/TT 

380F 




DIVERS 




Réparations des Portfolio 





mini disque dur sur port parallèle 170MB (340M/stac' 

3290F 



forfait changement liaison écran-clavier 

380F 




minidisque dur sur port parallèle 260MB (52ÛM/stac) 

4290F 



forfait révision générale 

150F 




Livre : mémo formulaire 

90F 



forfait changement d’alimentation 

160F 




Livre : mémotech électronique 

260F 




Sous total C 

FORFAITS EMBALLAGE + PORT + ASSURANCE 
Port PTT lettre ou colieco en recommandé 
pour une valeur jusqu'à 300F ttc > 30F 

Port PTT colissimo en recommandé 

pour une valeur jusqu'à 1500F ttc — > 45F 

pour une valeur jusqu'à 4000F ttc > 60F 

au delà, 45F/60F par tranche de 150ÛF/4000F 

pour l'expédition de calculatrices > 60F 

supplément pour contre remboursement > 45F 


TOTAL GENERAL 


{sous total A + sous total B + 
sous total C + sous total D) 


Sous total D 

Mme/M, : NOM 

Prénom 


» A * é è É i «1 a i 


Adresse 


Tél 


Fax 


Je possède un ordinateur de marque 
de type 


Je règle par : mandat PTT □ chèque Q contre remboursement Q 

Date le 1995 signature 
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NOUVEAU!!! LE PALMNOTE 

UN POCKET 386 (compatible PC) qui tient dans la poche 

avec WORKS et Race Pen intégrés ! 


Caractéristiques techniques : 


Processeur AMD 386SX 

- fréquences 7,15 ou 20 MHz 

Ecran LCD mono CGA 

- 640 x 200 : 80 colonnes par 25 lignes 

- 16 niveaux de gris 

VERSIONS 

2MB ou 4MB mémoire ram interne 
avec ou sans Fax-modem interne 

Cartes PCMCIA 

- 1 slot à gauche et 1 slot à droite 

- type 2 - PCMCIA 2.0 

- possibilité de cartes Sram jusqu'à 4MB (8MB 
avec Stacker) de chaque côté 

- possibilité de cartes Flash type SUNDISK jus- 
qu'à 40 MB de chaque côté (80MB avec Stacker ) 

Mémoire : 



Alimentation : 


- 2MB ou 4MB de RAM interne 
- 1,75 MB de ROM interne 

Clavier : 

- QWERTY ou AZERTY (autocollants) 

- 83 touches 

- 12 touches de fonction 

- clavier numérique intégré 

Dimensions : 

- taille : L= 245mm x I = 120mm x H= 29,5mm 

- poids : 600 grammes sans les piles 

Possibilités de connexion : 

- Fax -Modem externe 

- Lecteur de disquettes externe sur port // 

- Lecteur de disque dur externe sur port // 


- principale par 4 piles bâtons AA R6 (6V) 

- de secours par pile au lithium 3V (CR2032) 

- alimentation secteur avec transfo 

Ports : 

- 1 interface série (connecteur standard DB9) 

- 1 interface parallèle (connecteur standard DB25) 

Sotfwares intégrés en rom : 

- BIOS Phoenix 386 

- MS - DOS 5.0 

- MS - WORKS (traitement de textes-base de 

données-tableur) 

- RACE PEN (agenda - carnet) 

- Transmission rapide vers PC de bureau par 

interlink (câble fourni) 



Le Palmnote avec 2MB de mémoire centrale 8190F Le Palmnote avec 4MB de mémoire centrale 8990F 


supplément pour Fax-Modem interne 1450F 


SRAM 128KB 

570F 

Cartes PCMCIA type 1 : 
FLASH 256KB 520F 

FLASH 4MB 

2490F 

SRAM 256KB 

650F 

FLASH 512KB 

750F 

FLASH 8MB 

3290F 

SRAM 512KB 

820F 

FLASH 1MB 

1100F 

FLASH 10MB 

3790F 

SRAM 1MB (prix 

spécial) 690F 

FLASH 2MB 

1790F 

FLASH 20MB 

6290F 

SRAM 2MB 

2190F 






Remise de 10% sur le prix de la carte en cas d'achat groupé, Palmnote +cartePCMCIA Flash ou Sram 

Délai de livraison : 8 à 10 jours (sauf rupture de stock) 


MICROCARDS - 42220 - BURDIGNES 
Tél 77.39.68.13 Fax 77.39.19.60 

Document non contractuel - les marques citées sont toutes déposées 
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1MB ou 2MB dcmémoirc 


Ce PSION sériés 3 a 256K ou 512K de mémoire 

écran de 79 col par 17-CGA - DOS constructeur 
logiciels intégrés - 2 slots cartes mémoire 
dimensions 


MS DOS 3.3 - 7 logicielsîn tégrp 


dim : 22cm x 
poids 480g|| 


16,5cm x 8,5 x 2,2 - poids 270g 
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Pocket-Consultant 

PC Gard Sériés 


ïèle, sans aucune carte, ni itWie 


capacité 
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